﻿ https://neculaifantanaru com/inainte-ca-ochiul-sa-si-fi-terminat-privirea html IOANA BĂRBAT matematician MIHAI RADU DUMITRESCU matematician STELIAN NICULESCU matematician CAZIMIR MACARIE economist ANASTASE PITIȘ matematician PROGRAMAREA SI EXPLOATAREA SISTEMELOR RE CALCUL I Manual pentru licee de matematică-fizică, cu profil de informatică, clasa a Xl-a EDITURA DIDACTICA Я PfDAGOCICA bucurești - »ea l var TE A TNT ÎI PROGRAMAREA ÎN LIMBAJUL FORTRAN CAPITOLUI I NOȚIUNI INTRODUCTIVE CONSIDERAȚII GENERALE Automatizarea unor activități umane a fost avută în vedere din cele mai vechi timpuri, atît sub aspect filozofic și social cît și sub aspect tehnic Dorința omului de a se elibera de efortul fizic, în folosul activității creatoare, s-a aliniat la efortul general pentru progres Deceniul al cincilea al secolului al XX-lea a marcat o cotitură de seamă, problema automatizării căpătînd noi valențe, noi dimensiuni, punîndu-se problema automatizării în munca intelectuală Calculatoarele electronice sînt cele care au marcat acest moment de răscruce încercările de început pe calea automatizării unor activități umane își au originea în secolele trecute Personalități marcante, cum sînt Napier ( ), Pascal ( ,) Babbage ( ), își au numele legate de realizarea unor dispozitive (mașini) de calculat De fapt, ideea lui Babbage, lansată și susținută între anii — , a stat la baza realizării primelor calculatoare electronice Aparatul imaginat de el era prevăzut să efectueze operații aritmetice, să memoreze atît instrucțiuni (comenzi) cît și rezultate pe care apoi să le furnizeze Ca prim descendent al mașinii imaginate de Babbage a fost calculatorul ASCC (Automatic Sequence Controlled Calculator), realizat de cunoscuta firmă IBM în colaborare cu Universitatea Harvard ( ), calculator a cărui greutate era de circa cinci tone și care avea un volum considerabil Lui ASCC i-a urmat ENIAC (Electronic Numerical Integrator And Calculator) considerat, în fapt, a fi primul calculator electronic Acesta din urmă avea în componență circa de tuburi electronice și efectua aproxi-“X MO de adunări pe secundă După cum este cunoscut, în funcție de componentele electronice constitutive calculatoarele electronice sînt împărțite pe generații, evoluția atît dm punct'de vedere hardware cit și din punct de vedere software fiind spectaculoasă în zilele noastre microcalculatoarele și mmicalculatoarele au căpătat o răsplndire mare, informatica distiibuită fund o realitate * LIMBAJE DE PROGRAMARE Limbajele de programare, ca și limbajele naturale, au la bază: — un alfabet care este o mulțime finită și nevidă de caractere (litere, cifre, semne speciale); — un vocabular care este o mulțime de cuvinte, constituită din caractere sau succesiuni finite de caractere; — o gramatică care este ansamblul unor reguli destinate validării textelor (succesiuni finite de cuvinte), în sensul de a preciza că aparțin sau nu unui limbaj Evoluția rapidă în ceea ce privește echipamentele de calcul a impus, în mod firesc, o evoluție remarcabilă a limbajelor de programare Există astăzi sute de limbaje, ceea ce, în mod natural, impune o clasificare a lor Dintre multiplele moduri de clasificare se prezintă acela conform căruia există: limbaje de niveluri О, , , , limbaje specializate, limbaje de tip pseudocod Limbajele de nivel sînt limbajele-mașină, fiecare calculator electronic, prin construcție, avînd limbajul său — setul său de instrucțiuni Pe măsură ce calculatoarele au devenit mai complexe,programarea directă, în limbaj-mașină, a devenit mai greoaie, cu multă muncă de rutină, ceea ce a condus la ideea automatizării ei Au apărut astfel noi limbaje: limbajele de asamblare Limbajele de asamblare, considerate ca fiind de nivel , au structură similară cu limbajele-mașină, numai că locul codurilor numerice a fost luat de prescurtări sugestive (mnemonice), iar adresele nu mai sînt absolute (numere) ci sînt simbolice Trecerea de la un program scris într-un limbaj de asamblare (numit program origine sau sursa) la unul în limbaj-mașină se face pe baza unui program traducător corespunzător, numit asamblor Programul astfel obținut este numit program rezultat sau program obiect Limbajele de nivel sînt numite macro-asambloare, fiind tot limbaje simbolice Au în plus, față de cele de nivel , macro-instrucțiuni în felul acesta programele se scriu mai condensat, existînd mai puține surse de erori Nivelul este constituit din limbajele evoluate Cercetările din perioada — au dus la crearea acestei clase de limbaje, evenimentul fiind marcat de apariția limbajului FORTRAN (FORmula TRANslator) Prin structura sa, este destinat rezolvării problemelor tehnico-științifice (date puține cu calcule complexe) Fiind însă un limbaj universal, poate fi utilizat și în rezolvarea altor tipuri de probleme Programul traductor se numește compilator FORTRAN și realizează traducerea din limbajul FORTRAN în limbajul-mașină Primele specificații ale limbajului au apărut în Cîteva dintre variantele sale s-au bucurat de stabilitate și au avut o circulație mai mare: FORTRAN II ( ), Basic FORTRAN, FORTRAN IV ( ) și FORTRAN standard ( ) numit,*în cele ce urmează,FORTRAN în anul s-a elaborat un proiect de standardizare, ANS FORTRAN (ANS prescurtare de la American National Standards Committee), prezentat în două variante: limbajul complet și o restricție (ca revizie a variantei FORTRAN din ) Deceniul — a constituit o perioadă de maturizare în domeniul limbajelor de programare Limbajul FORTRAN a fost primul limbaj de programare standardizat, standardizarea oferind o serie de avantaje (ușurință în utilizare pe scară largă, compatibilitate cu variantele anterioare, facilități de extensibilitate) în a apărut un nou limbaj, COBOL (COmmpn Business Oriented Language), destinat rezolvării problemelor economice — volum mare de informații, cu calcule simple (primele specificații COBOL' s-au făcut în ) Ei este superior limbajului FORTRAN în ceea ce privește lucrul cu fișiere, i limbajul C OBOL este un limbaj de tip universal, ceea ce permite folosirea lui în rezolvarea și a altor tipuri de probleme (de traducere automată de calcule științifice etc ) \ot în anul b a apărut limbajul ALGOL (ALGOrithmie Language), # limbaj universal care a pieluat ce au avut mai bun limbajele ce l-au precedat Arc o structură foaitc bine pusă la punct Fiind complex, este mai puțin răs-pîndit în rîndul utilizatorilor, dar este folosit ca Іітіхц de publicare a programelor (există variantele ALGOL- , ALGOL- ) Limbajul PL/ (Programming Language One), sinteză a limbajelor FORTRAN, COBOL, ALGOL a apărut în anul Din rîndul limbajelor specializate cităm: limbajele conversaționale (BASIC, APL etc ); limbajele pentru probleme de simulare (GPSS, SIMULA etc ) STRUCTURA PROGRAMELOR FORTRAN Instrucțiunile limbajului FORTRAN sînt de două feluri (v tabelul ): — instrucțiuni neexecutabile, cele care furnizează informații necesare procesului de prelucrare; , ( * — instrucțiuni executabile, cele din care se generează efectiv instrucțiuni ale programului obiect TABELUL executabile neexecutabile BLOCК DATA COMMON COMPLEX ASSIGN CALL DECODE DO DIMENSION DOL’BLE PRECISION EXTERNAL NQU RE * Instrucțiuni de atribuia’ REWIND WRITE CHARACTER♦ BACKSPACE CLOSE ♦ CONTINUE ENTRY ENCODE EOUIVALENCE END FILE FIND FORMAT FUNCTION IMPLICIT INTEGER INTRINSIC ♦ Instrucțiuni de definire a unoi LOGICA! NAMELIST PARAMETER ♦ PROGRAM ♦ REAI SAVE • SUBROUTINE GO ТО necondiționat GO ТО impus GO ТО calculat IF aritmetic IF logic OPEN ♦ PAUSIî PRINȚ PUNCIl READ RETURN Instrucțiunile marcate cu * nu sînt acceptate de varianta actuală a compilatorului FORTRAN FELIX C- în general, structura unei instrucțiuni este următoarea (sînt exceptate comentariile și instrucțiunile specifice sistemului de operare): etichetă c instrucțiunea propriu-zisă Eticheta este un nuMăr natural cuprins între și , iar c este un caracter care dacă este diferit de spațiu sau zero semnifică o continuare (nuniai în zona instrucțiune propriu-zisă) a unei instrucțiuni care nu a încăput pe rîndul anterior Observație Toate instrucțiunile neexecutabile sînt neetichetabile (afară de instrucțiunea FORMAT), iar toate cele executabile sînt etichetabile Programele scrise în limbajul FORTRAN au o structură similară cu cea dată în figura Ceea ce rezultă imediat din figura prezentată este faptul că nivelele și sînt obligatorii, existînd cel puțin o instrucțiune executabilă și sfîrșitul fizic (END) ,al programului De asemenea, instrucțiunile FORMAT pot să apară oriunde la nivelele , , , , iar comentariile pot să figureze la oricare din cele nivele Un rînd comentariu se marchează prin prezența caracterului C în coloana și în coloanele următoare comentariul respectiv Limbajul FORTRAN FELIX C- nu acceptă instrucțiunea PROGRAM a unde a este numele simbolic al programului principal în FORTRAN STANDARD și FORTRAN ANS această instrucțiune este acceptată In schimb, FORTRAN STANDARD nu acceptă proceduri de tip BLOCK DATA Așadar, programele principale în cazul lucrului la FELIX C- , nu au instrucțiuni de nivel , orice job FORTRAN admițînd un singur program principal Л /Я • ЦР , f !NC> 'HU- '■'UNl INSTRUCD- JN[A L OMENIA RIU ;N\ ' r în memoria centrală a calculatorului se face exact (fără rotunjiri) prin trecerea din baza în baza De obicei, reprezentarea se face pe un cuvînt de memorie, în cod complementar ceea ce f er x cu numere întregi care sînt în intervalul i- * " * P°d UCra vir ^r eu!iLtV^unctn!nn "Г"® ’П SenSU CUn SCUt "umai că în de exemplu, în loc de - , sau în loc de ) "acționară (de acest mod cunoscut de a defini constante de tip real limbaiul FORTRAN mai acceptă și alte forme de constante de tip real și anume: x E n x E + n x E — n x n X — H unde x este constantă de tip real în sensul cunoscut (cu punctul ca marcă zecimală), iar н este număr natural Ultimele două tipuri de constante sînt valabile numai la citiri de date de pe suporți (de obicei, de pe cartele) Exemple — — — E + — - + — — — E — + E- — — E- — + Constantele de tip complex sînt definite ca perechi de constante de tip real Prima componentă a perechii este partea reală a numărului complex, iar a doua este partea imaginară a numărului complex Exemple ( , ) ( , ) (l ,l ) Numărul complex + i i +i Observație Este obligatoriu ca cele două elemente ale perechii să fie constante de trp real; na este acceptată drept constantă complexă, de exemplu, perechea deoarece cele două constante și stnt Întregi, nu rrale iumătatoM repre- mtt (în virgule mobili) partea reali, iar In a doua jumătate se reprezintă partea ag Constantele de tip dubit ^ț, C& * varianta cu Exemple — ) — ) Reprezentarea tar ta a"SuSidmîvTi^ta* » ) Ultimele patru exemple de liste permit scriere prescurtată: (X(I),I - , , ) rația (cînd rația lipsește se u automat ) valoarea finală a lui l valoarea de început a lui l , , ) EXPRESII Limbajul FORTRAN acceptă trei tipuri de expresii: numerice (arit metice), relaționale, logice a Expresiile numerice sînt reguli de caicul numeric, operatorii fiind: + i — ,*>/,** respectiv pentru adunare, scădere, înmulțire, împărțire, ridicare la putere Ca operanzi se pot lua: — constante numerice (fără tipul nj;e); — variabile numeiice; — funcții numerice Prioritățile operațiilor sînt: — ridicări la putere (**); — înmulțiri (*), împărțiri (/); — adunări (-(-), scăderi (—) La priorități egale (operații succesive de aceeași prioritate), Se aplică regula dreapta-stînga la ridicările la putere și stînga-dreapta la celelalte Exemple Expresia A*B/C A**B**C SIN(X)+COS(X) Cum se evaluează (A-|-B)-|-C (A B)/C A d t r ii se scriu respectiv: Im, l:m ■ p, JX, Am, în чС ^iptori se repetă, se pot grupa între paranteze ți m țața sc scrie factorul ,/) listă unde: — READ este cuvîntul care arată că este vorba de o instrucțiune de citire (intrare); — p indică numărul perifericului cu care se face citirea (pentru cititorul de cartele numărul standard este />= , la FELIX C— ); — f este eticheta instrucțiunii FORMAT (cu care se descrie structura listei prevăzută în continuare) atașată instrucțiunii de citire; — listă este lista variabilelor ale căror valori se precizează Mai există și o altă formă a instrucțiunii READ: READ /, listă în care lipsește numărul perifericului (/> de la forma anterioară), înțelegând prin aceasta că este vorba de cititorul de cartele (aceasta este forma standard) Observație într-o instrucțiune READ ( ,/) listă, în loc de etichetă, / poate fi o zonă de memorie în care, în prealabil s-a introdus formatul de citire, începînd cu paranteza deschisă de după cuvîntul FORMAT și pînă la paranteza finală, inclusiv Acest lucru oferă un mare avantaj și anume acela că formatul asociat unui READ se poate citi de pe cartele de date, ceea ce conferă programelor o mai mare independență, putîndu-se schimba formatele prin citirea caracterelor de date corespunzătoare Dacă de exemplu, se consideră READ( , )A,I,B FORMAT (F , ,A ) această secvență se poate înlocui cu următoarea secvență DIMENSION F( ) READ ,F FORMAT( A ) READ( ,F)A,I,B cartela de date asociată primei citiri conținînd (F ,I ,A ) adică formatul de citire Poate lipsi lista la o instrucțiune READ Exemple Dacă READ ,A,K FORMAT (F , ) înseamnă că cele două valori pentru variabilele A și К se vor citi de pe o cartelă din cîmpurile — și respectiv — ale acesteia, în caz că nu se utilizează virgula pentru separarea cîmpu-rilor Dacă, de exemplu, se dorește ca: A « К - atunci cartela de date va avea următoarele caractere în primele coloane: ^^ ^^ Utilizînd virgula ca separator de cîmpurl, cartela va avea în primele coloane următoarele semne: , de unde rezultă o economie de coloane de cartelă Fie instrucțiunea: KEAD( , ) (X(K), K= , ) FORMAT ( (A , X)) Cele cinci componente ale variabilei indexate X sînt de tip alfanumeric, fund citite de pe o cartelă cu cîmpuri a căror structură este dată de FORMAT c Instrucțiunile de WRITE arc forma: scriere (WRITE, PRINȚ, PUNCH) Instrucțiunea e WRITE (/>,/) listă unde clementele, d, y>, у și listă au aceeași interpretare ca la instrucțiunea READ, numai că p~ dacă este vorba de scriere la imprimantă sau p= dacă este vorba de perforarea rezultatelor pe cartele (pentru FELIX С— б/ Instrucțiunile PRINȚ și PUNCH se referă la scrierea la imprimantă și respectiv la perforarea rezultatelor pe cartele Ele au formele (standard;: PRINȚ f, listă PUNCH f, listă Exem ple Instrucțiunea: WRITE ( , ) D,A,N FORMAT ('l', X, , X, F , X, A ) are ca efect scrierea pe primul rind al unei pagini de imprimantă (efectul caracterului de control ) a valorilor variabilelor D, A și N Același lucru se obține scriind: PRINȚ , D, A, N FORMAT ('Г, X, , X, F , X A ) Dacă vrem ca valorile variabilelor din exemplul anterior să fie perforate fiecare pe cîte o cartelă, atunci vom scrie: WRITE ( , ) D, A, N FORMAT ( X,I / X,F / X,A ) sau PUNCH , D, A, N FORMAT ( X, / X,F / X,A ) în cadrul formatelor se pot utiliza, constante alfanumerice Aceasta, cu scopul creșterii lizibilității Dacă, de exemplu, se consideră instrucțiunea PRINȚ , А, I, V FORMAT (' ', 'A=', F , ' = ' IX ' V = ',A ) atunci se va scrie un rînd la imprimantă (după ce se lasă un rmd hl ei -efectul lui zero luat drept caracter de control) de forma: \^xxx,x xxx V^=aaaa unde cu x s-au notat poziții numerice și cu a poziții alfanumerice Dacă se notează cu n numărul de elemente din lista unei instrucțiuni de scriere și cu m numărul descriptorilor din formatul asociat (nu se numără descriptorii de tip X și nici constantele alfanumerice) există situațiile: — n m caz în care se reia formatul, de la perechea de paranteze cea mai apropiată de paranteza finală a formatului, pînă cînd se epuizează lista (orice reluare înseamnă o nouă înregistrare) și se ajunge fie la sfîrșitul formatului, fie la n + descriptor Se dă un text de de caractere scris pe două cartele Să se scrie un program care să rezolve următoarele probleme: a) afișarea textului rezultat din preluarea caracterului , , , , ale textului, pe rînduri de cîte de caractere la imprimantă; b) scrierea rărită a textului (între oricare două caractere se inserează un spațiu), rîndurile lâ imprimantă avînd de caractere; c) afișarea inversă a textului, pe rînduri de de caractere Soluție Mai întîi se vor da soluții separate la cele trei probleme și apoi o soluție pentru rezolvarea în ansamblu a) Afișarea textului rezultat din prelucrarea caracterelor , , , , pe rînduri cu cîte de caractere se obține astfel: DIMENSION T( ) READ , (T(I), = , ) FORMAT ( (А , Х)/ (А , IX)) —> un caracter citit și unul sărit PRINȚ , (T(I), = , ) FORMAT (' ', Al) Ca format de citire se putea lua FORMAT ( (А , IX)) b) Scrierea rărită a întregului text este realizată de următoarea secvență de instrucțiuni: DIMENSION T( ) READ , (T(I), = , ) —> Citește caracter cu caracter FORMAT ( A ) PRINȚ , (T(I), = , ) FORMAT (' ', A ) —► Rînduri de caractere ( de text, spații inserate) c) Afișarea textului de la sfîrșit spre început se realizează cu instrucțiunile: DIMENSION T( ) READ , T FORMAT ( A ) PRINȚ , (T( - + ), = , ) FORMAT (' ', A ) O variantă a unui program care rezolvă toate cele trei probleme este dată în figura III l unde s-au completat și cartelele de date (două cartele) și cartelele de comandă așa îneît programul să poată fi rulat pe un calculator FELIX C- (cartelele de comandă au punct în coloana și se scriu începînd din coloana ) PROGRAM FORTRAN DIN UNITATEA CONTUL RT R AN F* R S ТІф N I N N M N § ! У 'J ( k) Fig,” lîl l OAIA LUCRAREA PROGRAMUL INSTRUCȚIUNI SIMBOLUL PAG PROGRAMATOR ETICHETA OE PERFORARE SE PERFOREA INSTRUCȚIUNILE PROGRAMULUI IDENTIFICARE fcK t rIaIn Să se scrie un program pentru a calcula produsul a patru numere întregi ale căror valori se citesc de pe cîte o cartelă din cîmpul •-•• Se cere să se afișeze rezultatul pe primul rînd al unei pagini noi și apoi, după un rînd liber, șă se afișeze pe patru rînduri fiecare din cele patru valori, în ordinea inversă citirii, sub forma nume = valoare începînd din coloana a rîndului respectiv Primul rînd se cere să aibă forma PRODUSUL CELOR PATRU NUMERE ESTE valoarea, și să fie scris începînd din coloana a rîndului X • Soluție Fie А, В, C, D numele celor patru variabile necesare și R variabila pentru rezultat Ținînd cont de cerințele problemei și de notațiile alese, rezultă programul: INTEGER А, В, C, D, R READ ,A, В, C, D FORMAT ( X, ) PRINȚ , R, D, C,B,-A FORMAT (' ', 'PRODUSUL CELOR PATRU NUMERE ESTE', * I /' \ X, 'D=\ /' \ X, 'C = \ /' ', X, 'B=\ /'/, X, * 'A=/, ) STOP Se observă că rezultatul s-a scris cu descriptorul , pe pagină nouă, iar D, С, В, A s-au scris cu descriptorul care cu s-au citit ( ), fiecare pe cîte un rînd De asemenea, se remarcă faptul că instrucțiunea FORMAT de etichetă s-a continuat pe alt rînd marcat cu * în coloana (se putea utiliza orice alt caracter afară de zero sau blanc); faptul că nu s-a completat rîndul de început al formatului pînă în coloana nu constituie o eroare deoarece (reamintim) spațiul nu este semnificativ pentru compilatorul FORTRAN Se dau variabilele logice А, В, C, D, variabilele E, F, G de tip dublă precizie și variabilele H, I, J de tip complex Să se determine: Valorile pentru В, C, D, F, G, I, J se vor preciza printr-o instrucțiune de tip DATA, iar rezultatele se vor scrie pe un același rînd la imprimantă, separate de cîte două spații Soluție în condițiile de mai sus, programul FORTRAN de soluționare a problemei este următorul: LOGICAL A, B, C, D DOUBLE PRECISION E, F, G COMPLEX И, I, J I ■ ■■ — ll\o w’ D' F’ G’I( J/ P' т'* -FALSE- D , *( , ),( , )/ a=b and not c or not:b and not d E=F-f-G H=I* J PRINȚI, A, E,H F , X, ZH=', F ) Întrebări și probleme ♦ Care sînt tipurile de instrucțiuni de atribuire? Dacă = , J = , A = , В = , X = (l , ), Y = ( , ), să se spună ce efect au instrucțiunile: L = I » } »!♦ /I/J C = • I/J • - A X = X/Y • X V( » J - ) = J + / + / știind că L,C,V sînt variabile de tip întreg, real, real Fie I = , К = , L = — , V = - , В = TRUE , C = FALSE , D = FALSE F X, Y, Z variabile de tip logic Să se spună ce efect au instrucțiunile X = NOT B OR C AND D AND NOT В Y = К ♦ I LE V ♦ В AND NOT C OR I*»K NE Z = NOT NOT B OR NOT C AND NOT D Fie N variabilă de tip alfanumeric cu au A și I dacă se efectuează instrucțiunile conținutul ABCD Ce conținut (alfanumeric) Descriptor F A Să se indice valorile citite în cazurile Informația sursă b bb ce urmează Descriptor F bbbbTT Informația sursă blb b AB, ABC Să se indice valorile scrise în cazurile de mai jos Descriptor F A L Informația sursă XYZT TRUE Descri ptor F A L Informația sursă - ABCD FALSE spună cite cartele de date sint necesare pentru fiecare dintre citirile care urmeară: READ , А, I, B, J, К FORMAT (F , ) READ , AN, LU, ZI, BA, CA, DA, EA FORMAT ( X, АЗ/И, ( X, ' ), F ) READ , (X(I), I - b , ) FORMAT (F / (F , IX, F )/F /) READ ( , )(А(І + ), I- , , ) FORMAT (/A /A ) Si se indice cîte rînduri la imprimanta, respectiv, cile cartele, посмЙЛ rezultatele In cazul instrucțiunilor care se dau in continuare PRINȚ ,A,I,J,K FORMAT (’O’, АЗ, I /(’ ’, )) WRITE ( , ) (I(L), L= , , ) FORMAT (’Г, ,( ), ') PUNCH ,P,A,R,D,O,N FORMAT (’ •/VALORI: ’/(* ,, (F ,A ))) Fie bABCDEFCHITF conținutul primelor de coloane ale unei cartele Ce se va scrie la imprimanta și sub ce forma daca se executa secvența de program: LOGICAL А,В PRINȚ FORMAT (‘Г, 'PROGRAMARE’, , , , ’STOP’) READ ,A,B,I,K PRINȚ ,A,B,I,K СЛИТОМ L n INSTRUCȚIUNI PENTRU SCRIEREA PROGRAMELOR CU S RUCTURĂ ALTERNATIVĂ INSTRUCȚIUNI DE TIP GO ТО Limbajul bORFRAN acceptă trei categorii de instrucțiuni de tip GO ТО și anume: ■ e GO ТО e GO ТО v, (o, i , i ) GO ТО (Л, i im), v numite, respectiv, transfer necondiționat, transfer impus cu un ASSIGN și transfer calculat Prin e s-a notat o etichetă FORTRAN, cu v o variabilă simplă de tip întreg, iar iu i im sînt etichete FORTRAN O instrucțiune de forma GO ТО e are ca efect trecerea (necondiționată) la efectuarea instrucțiunii de etichetă e Orice instrucțiune de-al doilea tip GO ТО v, (i'i, i , im) este precedată (logic) de o instrucțiune ASSIGN i ТО v unde i este una din valorile i , im în acest fel, instrucțiunea GO ТО devine echivalentă cu GO ТО i Al treilea tip, GO ТО calculat, a rezultat ca o perfecționare adusă lui GO ТО impus cu ASSIGN și se execută astfel: după ce se atribuie lui v c valoare r (una din valorile l, , ;,m), efectul este GO ТО ‘r (se trece la executarea instrucțiunii de etichetă V) Observație La unele compilatoare virgula ce separă variabila v de lista de etichete este opțicr V în cele ce urmează se va utiliza mai mult GO ТО necondiționat La GO ТО calculat pot exista etichete egale în lista de etichete în cazul că lipsește lista la GO ТО cu ASSIGN instrucțiunea devine: GO ТО r Exemple GO ТО ASSIGN ТО К GO ТО К, ( , , , I) G ТО ( , , , , , , , , , , , , ), L î L= ASSIGN ТО M GO ТО M INSTRUCȚIUNI DE TIP IF Există două feluri de instrucțiuni de acest tip a Instrucțiunea IF aritmetic are următoarea formă generală: IF (ea) k\,k ,ki în care: — ea este o expresie aritmetică fără operanzi de tip complex; — kl, klt k$> sînt etichete O instrucțiune IF aritmetic se execută astfel: — se evaluează expresia ea; — dacă valoarea rezultată este strict negativă, se va trece la executarea instrucțiunii cu etichete k\ (efectul: GO ТО Al); —dacă valoarea expresiei este egală cu zero se va trece la executarea instrucțiunii cu eticheta k (efectul: GO ТО A ); — dacă expresia are o valoare strict pozitivă se va executa instrucțiunea cu eticheta A (efectul: GO ТО АЗ) Dacă se iau A =A înseamnă că atunci cînd valoarea expresiei este mai mică sau egală cu zero se va trece la același punct din program, iar în caz contrar, se execută instrucțiunea cu eticheta A Așadar, există posibilitatea ca două din cele trei etichete scrise după IF să fie egale, ceea ce permite realizarea diverselor condiții cerute în rezolvări de probleme (>, GO ТО C THEN instrucțiuni instrucțiuni CONTINUE CONTINUE c fiind condiția care determină structura (etichetele pot fi altele) Exemple IF( NOT A LEJ)) GO ТО C THEN PRINȚ LA FORMAT(' ',A ) CONTINUE IF( NOT X GT Y) GO ТО S-A -B/ T-B+A/ W-(A+B)/ CONTINUE Structurile de tip IF-THEN-ELSE se vor simula tn felul următor: IF( NOT c) GO ТО C THEN instrucțiuni GO ТО ELSE I xrs CON TI N V E in$trwtiw i ST CONTINUE Елп»»/*и DATA А, В, С/ХЛЛ v„ lFi NOTJS*CMxO) GO ТО THEN Y=A B—;C PRINȚ FORMATtT X GO ТО ЗЗЗЛЗ F Y=’ FS ) CONTINUE X=A*A*A PRINȚ , X FORMATfO’, ‘X= F /T NU ARE >EN> CONTINUE S:riftisri e de tip CASE-OF se âmukează a GO IO (ii **,— ) » GO ТО e GO ТО e instrucțiuni Solujie Se va utiiiea un GO ТО calculat care va avea ca variabili de control chiar pe-N Valoarea lui N se va citi odată cu cele ale lui А, В, С, IX Pentru siguranța ci se citește o valoare corectă jxntru N se va face verificarea pentru a ști daci N ia una din cele valori i CONTINUE i secvența s $ IF(c) GO ТО ei e CONTINUE Se observă că simularea unei structuri repetitive de tip DO-UNTIL se realizează, ca și cea anterioară, prin instrucțiunile: IF /ogic, CONTINUE, GO ТО Fig V Deoarece în structura prezentată în figura V execuția secvenței de instrucțiuni s arc loc atunci cînd propoziția logică c este falsă, în instrucțiunea IF propoziția logică este negată (г), astfel îneît atunci cînd aceasta este adevărată (deci propoziția logică c este falsă) să se execute-secvența de instrucțiuni s, iar atunci cînd propoziția logică г este falsă (deci c este adevărata) să se execute instrucțiunea CONTINUE de etichetă e , ceea ce conduce la instrucțiunea imediat următoare Programul V Să se ordoneze crescător trei numere naturale JOB PR ♦ANî ♦PN:MIHAI COMPILE FORTRAN * SIMULAREA UNEI STRUCTURI REPETITI-» * VE OE TIP DO-UNTIL * «»»«»««««««•#««««««««•»» INTEGER A«â«C«AUX FORMAT( ) ÎNCEPUT SIMULARE STRUCTURA OO-UNTIL CONTINUE K = AUXsA B=AUX CONTINUE AUX=B C=AUX CONTINUE IF(K NE O) GO ТО ^SFIRSIT SIMULARE STRUCTURA OO-UNTIL FORMAT(♦ »» STOP ENO LINK RUN » EOJ PROGRAMUL V J SIMULAREA STRUCTURII REPETITIVE CONDIȚIONATĂ INTERN Forma generală a unei structuri repetitive condiționată intern LOOP-EXITIF-ENDLOOP este dată în figura V ’ Structura prezentată se descrie în limbajul FORTRAN astfel; CONTINUE secvența s IF(c) GO ТО ! secvența s f GO TO ’Z CONTINUE Se observă că simularea unei structuri repetitive condiționată intern se realizează prin instrucțiunile: IF logic, CONTINUE, GO ТО, Condiția* de terminare a execuției structurii repetitive se află în inte-riorul secvenței de instrucțiuni care se repetă, astfel încît rezultă'o subsec* vență Si condiționată posterior (ștructură DO-UNTIL) și alta condiționată anterior (structură DO-WHILE) Programul V Să se afle cel mai mare divizor comun a două numere naturale M și N prin algoritmul lui Euclid Observație O structură repetitivă mul poate li denumită iiructură ciclicd sau pe scurt Se acceptă, deci, să t>e înțeleagă prin ciclu, un lanț complet de operații care se execută intr-o anumită secvență a ttlgoi itmului și caro prin repetare epuizează evoluția unui anumit proces de calcuL Secvența de instrucțiuni care se repetă !n execuție so numește corpul ciclului, iar instrucțiunea IF logic plasată înaintea, după pau In interiorul secvenței, permite ieșirea din ciclu în toate cele trei tipuri de structuri repetitive studiate, sepvența de instrucțiuni (c^pul ciclului) se repetă de un număr necunoscut do ori (determinat de condiția c) PKOGRAMUL Ѵ З SIMULAREA'UNEI STRUCTURI REPETITIVE DE TIP LOOP-EXITIF-ENOLOOP PR AN: u»Pn :mihai ILE FORTRAN DESCRIEREA UNEI STRUCTURI RJEPh ІІ\ I ' DE TIP DO-FOR RUN eo INTEGER Q'R»AUXtCMMOC READ( «l) M,N FORMAT( I ) IF(M GE N) GO ТО AUXsM M=N N=AUX CONTINUE ÎNCEPUT SIMULARE STRUCTURA LOOP-EXITIF-ENOLOOP ’ Q=M/N r=M-N«Q M=N N=R GO ТО CONTINUE SFIRSIT SIMULARE STRUCTURA LOOP-EXITIF-ENOLOOP CMMDC=N WRITE( » ) CMMOC FORMAT (» •t’CMMDCs’• ) STOP END rpnetitivf de tip DO-FOR este dată în Forma generală a unei structuri repetitivi i figura V instrucțiuni ce constituie secvența s (corpul Se observă că grupul de inetrucpuiw v ciclului) se execută de un număr dat de n V Structura repetitivă DO-FOR Instrucțiunea FORTRAN, care permite executarea operațiilor din corpul unui ciclu de un număr cunoscut de ori, este instrucțiunea DO Format general И DO k I Ml, М , М unde: — eticheta e se utilizează atunci cînd referire la această instrucțiune; — к este eticheta unei instrucțiuni bile, ultima din grupul de instrucțiuni repetă, numită instrucțiune terminală; există o executa-care se ; instrucțiunea terminală nu poate fi una din instrucțiunile următoare: GO ТО, IF aritmteic, RETURN, STOP, IF logic conținînd una din instrucțiunile precedente și DO (de regulă, drept instrucțiune terminală, se va utiliza instrucțiunea CONTINUE); — I este numele unei variabile întregi, numită variabilă de control a ciclului; — Ml, М , М sînt, fiecare, fie o constantă întreagă, pozitivă fie un nume de variabilă întreagă, reprezentînd respectiv: Ml valoarea inițială, М valoarea finală, М valoarea de avans (rația) Dacă М nu apare în formatul instrucțiunii DO înseamnă că M =L Secvența unei instrucțiuni DO Fiecărei instrucțiuni DO îi este asociată o secvență’ definită de ansamblul tuturor instrucțiunilor executabile corespunzătoare operațiilor din corpul ciclului, cuprinse între prima instrucțiune executabilă din corpul instrucțiunii DO și instrucțiunea terminală Atît prima instrucțiune, cît și instrucțiunea terminală, fac parte din secvența instrucțiunii DO în executarea unei instrucțiuni DO sînt parcurse următoarele faze: — variabilei de control I îi este atribuită valoarea inițială Ml; — se execută secvența asociată instrucțiunii DO; — valoarea variabilei de control a ciclului se mărește cu valoarea rației М după fiecare execuție a liniei finale; — dacă rezultatul operației de decidere asupra propoziției „I =M ’M ’ J=N -N ’ X ) l WRITE în primul caz citirea/scrierea tabloului bidimensional A se face pe linii, iar în al doilea caz, pe coloane Exemple: • DIMENSION A( , ) READ ( , ) ((A(I, J), J= , ),I= , ) FORMAT ( F ) Prin execuția acestei secvențe de instrucțiuni, elementele tabloului A ( ) vor fi depuse în memorie unul după altul și deci trebuie scrise pe cartelă în ordinea: A(l,l) A( , ) *) A(l, ) A( ,l) A( , ) A( , ) A(l, ) A( ,t) A( , ) A( ) A( , ) A( , ) DLMEXS ON A( , ) * WRITE ( , ) ((A(l, J), FORMAT F ) * * Г ' * * * '* ** * *•** •* * *•> •••w t » * >•r w •ț ф•w I »* » , ) , execuția acestei secvențe de instrucțiuni vor fi scrise p nndurt e и iei ««» sînt sumele elementelor de pe fiecare coloanft a tabloulu Fiind dat u»i tablou bidimensional numere reale, să se scrie programul celui mal mic număr din tablou Fiind dat un tablou bidimensional Л cu reale, să s© i ale cărui elemente * с с с с JOB PR »ANH' ’‘J '»PNi#t* t COMPÎLE FORTRAN « О О О й « tt О о Й о й Й Й й й й * # * * * ’*'** * * * * * * * * CALCULUL SUMELOR ELEMENTELOR * « SITUATE PE DIAGONALA RRINCI-* й PALA»SUB DIAGONALA PRINCIPALA ♦ й SI DEASUPRA DIAGONALEI UNEI * * MATRICE CU N LINII SI N COLOA-* NE * / INTEGER SI♦S »S »A( ♦ ) READ( »l) N,(( A( ItU)♦J= fN)♦I« *HI ] FORMAT( ( ) Sl = S = S s ; « « ««й««я> DO lbl,N DO J'= »N IF (I LT J) GO ТО' IF (I GT U) GO ТО S?=S *A(I»J) ТО • CONTINUE S =S *A(I,J) GO TO : CONTINUE S =S +A(I»J) CONJTNUE CONTINUE WRITE » ) S ^ ,S ~™AT S =' I ,>S => ST Or END EOJ l’KOGKAMUE V , Firi м F ( X)я(X»* *( *X** )** , )/( ♦X«* ** READ(lOS l) N,A,B FORMAT(I » F ) S= •/ *(F(A)♦F(B)) MxN- K * tas ,Іп a'e "SuS d« dSlnitle SUBROVTINE — corpul subprogramului, — instrucțiunea END Instrucțiunea SUBROUTINE este neexecutabilă și neetichetabilă Formatul general al instrucțiunii este: SUBROUTINE S(P , P , P PN) unde: • ■ — S este numele simbolic al subprogramului; , — PI, P , P , PN sînt parametri formali care pot fi: nume de varia-bile, nume de tablouri, nume de subprograme, asterisc Numărul parametrilor formali poate fi oarecare, totuși este posibil să nu existe nici un parametru formal în lista parametrilor formali se deosebesc două tipuri: — parametrii de intrare, ale căror valori smt preluate, de către subpro* gram, din programul apelant; — parametrii de ieșire, ale căror valori sînt calculate în subprogram, urmînd a fi transmise programului apelant Corpul subprogramului poate conține orice instrucțiune cu excepția: — FUNCTION — BLOCK DATA — o altă instrucțiune SUBROUTINE Reîntoarcerea rezultatelor în programul apelant este asigurată prin instrucțiunea RETURN și are loc la instrucțiunea imediat următoare (din programul apelant) instrucțiunii de apelare a subprogramului Instrucțiunea de apelare a subprogramului de tip SUBROUT I NE este instrucțiunea CALL Format general ' ' CALL S(A ; A , A , , AN) unde: — S este numele subprogramului (același din instrucțiunea SUBROUTINE) — Al, A , A , , AN sînt parametrii efectivi care trebuie să coincidă ca număr, ordine și tip cu parametrii formali corespunzători din instrucțiunea SUBROUTINE Parametrii efectivi pot fi: de variabile, de variabile indexate, de tablou, • de subprograme, — constante, — nume — nume —- nume — nume — expresii de același tip cu parametrul formal corespunzător, — etichete precedate de^ampersant (&) • Ieșiri multiple din subprogramul de tip SUBROUTINE Există posibilitatea reîntoarcerii din subprogram în programul apelant și în alte puncte decît la instrucțiunea imediat următoare instrucțiunii CALL, In acest caz printre argumentele efective ale instrucțiunii CALL trebuie să se afle și etichetele instrucțiunilor la care se face reîntoarcerea, precedate de caracterul le corespund ca argumente formale în instrucțiunea SUBROUTINE un număr egal de asteriscuri л Reîntoarcerea la fiecare din instrucțiunile ale căror etichete sînt argumente in instrucțiunea CALL se asigură printr-o instrucțiune RETURN i scrisă în subprogram Formatul instrucțiunii RETURN i este: RETURN i ■ - ** * unde t este o constantă întreagă pozitivă, cel mult egală cu numărul asteCînd i are valoarea *, reîntoarcerea în programul apelant are loc la instrucțiunea a cărei etichetă are numărul de ordine k în lista etichetelor din instrucțiunea CALL Exemplu: Să se calculeze într-un subprogram de tip SUBROUTINE si ma elementelor din fiecare coloană a tabloului A ( , ) Citirea elementelor tabloului A și afișarea rezultatelor se execută în programul apelant C PROGRAM APELANT DIMENSION A( , ), V( ) READ ( , ) ((A(I, J), J = l, ),I = , ) FORMAT ( F ) ; CALL SUMA (А, V) WRITE ( , ) (V (J), J= , ) FORMAT (/ VSUMELE DE PE COLOANE) A SINT'//\ F ) a' STOP fl END J C SUBPROGRAM TIP SUBROUTINE SUBROUTINE SUMA (AA, VV) DIMENSION AA( , ), VV( ) DO J = , VV(J) = o DO = , CONTINUE RETURN END în acest program parametrii forrrali sînt AA ți VV, iar parametrii efectivi sînt A și V Programul VI Să se rezolve ecuația ax + bx + c = , utilizînd un subprogram de tip SUBROUTINE pentru calculul discriminantului și a rădăcinilor ecuației în subprogramul DISCR se calculează discriminantul ecuației de giacul II și în funcție de valoarea pozitivă, nulă sau negativă a acestuia se calculează valorile rădăcinilor Prin instrucțiunea RETURN i (i = , » з) ^ev^e programul principal la una din instrucțiunile de scriere cu etic etet* • » sau , etichete care, precedate de ampersant, figurează ca argt mente m ista instrucțiunii de apelare CALL Observație Datorii reîntoarcerii din subprograme, de tip SVÎ RtXUT NE nin •** motiv instrucțiunea RETURN i nu se utilizează în programarea structurată INSTRUCȚIUNEA EXTERNAL Se utilizează în cazul în care numele unui зиЬРго£Га™ arSu' ment în alt subprogram (de tip FUNCTION sau SUBROUTIN)• Instrucțiunea este neexecutabilă și neetichetabilă și se scrie in pr a apelant înaintea tuturor instrucțiunilor executabile Formatul general al instrucțiunii EXTERNAL este: EXTERNAL, питві, numez, » nume unde: numelt nume l •••> nume* sînt numele unor subprograme care apar ca argumente efective în instrucțiunile de apelare a altor subprograme în lista de argumente a instrucțiunii EXTERNAL, pot apare atît numele unor subprograme scrise de utilizator, cit și numele unor funcții standard Observație Instrucțiunea EXTERNAL nu poate apare intr-un subprogram Exemplu: C PROGRAM APELANT EXTERNAL SIN, DELTA CALL ETTA *(Ă* B," DELTA, C) I * > - • • CALL ETTA* (Ăl," BLSIN, Clj ✓ STOP END С SUBPROGRAM DE TIP SUBROUTINE SUBROUTINE ETTA (U, V, W, T) U = W(V) + T : ” • si RETURN END C SUBPROGRAM DE TIP FUNCTION FUNCTION DELTA (X) f • • • DELTĂ = X** - RETURN END în programul apelant s-au declarat, în instrucțiunea EXTERNAL, numele subprogramului DELTA de tip FUNCTION, scris de programator și numele funcției standard SIN F La întîlnirea instrucțiunii CALL ETTA (A, B, DELTA, C) se execută programul de tip SUBROUTINE ETTA (U, V, W, T) cu parametru efectivi A, B, DELTA, C atribuiți respectiv parametrilor U, V, W, T în subprogramul ETTA '* aPe,eazâ subprogramul de prin instrucțiunea FUNCTION DELTA (X) tip FUNCTION '" !,""”Г'а a“Stei ins,™tiu„i se trece la executarea subprogramului FUNCTION DELTA (X) ЖТ' formal X corector parametrului forma! V i parametrii Numele funcției DELTA S“țepTZSU Ui ,O™al di" S“b~- - apelant La întîlnirea instrucțiunii CALL ETTA (Al, SIN, Bl, Cl) se execută subprogramul de tip SUBROUTINE SUBROUTINE ETTA (U, V, W, T) ™ P?ia™etrii efectivi Al, SIN, Bl, Cl atribuiți respectiv parametrilor U, în subprogramul ETTA se apelează funcția standard SIN prin instruc-țiunea u = W(V) + T Programul VI Să se traseze graficul funcției Y(X) = у SIN( X + ) utilizînd un subprogram de tip SUBROUTINE Soluție Pentru scrierea unui program de trasare a graficului unei funcții se poate preceda astfel: — Se definește un tablou unidimensional (vector) cu componente (numărul de componente poate fi și altul) Două și numai două din aceste componente vor conține caracterul alfanumeric de trasare (asterisc sau orice alt semn), iar celelalte vor cuprinde spații Caracterul deolasabil va fi atribuit întotdeauna unei aceleiași compo- Caracterul deplasa oii a componentă căre a îi este nente nentru a marca axa ОЛ, iar cea ut a uvua Ewcî peni fiecare imprimare, țrebme determinați indicii componen- - Slab,La pmfM ox- Indicek romPon™,ei marche“â axa ox Г ” anumh in,etv”)' ”va,oarea minimă, iar v valoarea curen a inJiCele I al componentei care va repre- Dacă ѵг și vi au semne contrai n шик zenta axa OX este: UX • £ ^ Vg — Д* VU, u’ He parantesele drepte indică faptul ct se extrage partea întreagă a modulului multatuluu Dacă «a și sînt ambele negative» axa OX se va desena la dreapta de tot (în dreptul valorii Vjj, iar dacă *i și sînt ambele poaîtive, axa OX se va desena la stingă de tot (în dreptul valor ii — Stabilita* &> $fei Рммгініт cnreid, Indicele l al componentei care marcheaaă poxiția punctului curent este dat de formula: ев ГЛ ^ноо + l l în situația în care aprecierea inițială a valorilor extreme nu este corectă se prevede, ca în loc de imprimarea unui punct, să se imprime valoarea efectivă a funcției» ' ГѴГЯЖ&ОД $ , C© dpwri de proceduri eutmțteți) X Cum we definește o funcție*tormuU> Prtu ее «e е&гасіепдеШ funcțiile sundard> Ce tipuri de subprograme cvimșteți? SI w cAlvuletc >î a nfișere ѵаЬздзд еэцишЫ К m (g #* — * e) ; (dl? — t v ~ J) utiiuind o îumtie lormulâ delhdtl OtfcU F(tV) «i А Г* t Se conoderA o funcție logici de doul WgrUbih» F(X,¥) « (XVY)A(VVXIW SA se scrie programul FORTRAN posibile ale argumentelor: ptiu care să se evalueze funcția pentru cele valori •TRUE TRUE •FALSE •FALSE Y = TRUE Y = FALSE Y = TRUE Y' = FALSE Sii se calculeze: scriind o procedură de tip FUNCTION pentru calculul sumei de la numărător și numitor Se dau două mulțimi reale, cu număr finit de elemente Să se scrie programul FORTRAN pentru determinarea reuniunii celor două mulțimi Procedura de aflare a mulțimii reuniune se va realiza într-un subprogram de tip SUBROUTINE Să se scrie programul FORTRAN pentru determinarea intersecției mulțimilor de la problema, precedentă Procedura se va realiza într-un subprogram de tip SUBROUTINE Să se scrie programul FORTRAN pentru determinarea diferenței a două mulțimi de numere reale, cu număr finit de elemente Procedura se va realiza într-un a Se dă un pachet de cartele subprogram de tip SUBROUTINE cu structura: — in coloanele — un — în coloanele — un număr număr întreg N( — fișier de editare la imprimantă: ♦ - > — fișier de editare pe cartele perforate: ♦ într-un program FORTRAN referirile la fișierele sistem de se fac prin intermediul unor identificatori care se numesc numere ca fișiere, sînt a^tȘmoTvTSs^ жжх mas F R- TRAN și O instrucțiune de citire era de f READ ( ,/) hsti; „pocillce imului S RIS / Pentru ГТ- fortRAN destinat rul&rii pe un calculator —-— ♦ Aceste numere stnt •P*'» ®® '^"âe^tinăt 'rulftrii pe un calculator diferite De exemplu, un program FOR kan ne ca numere iar o instrucțiune de scriere: WRITE ( ,/) listă Implicit se consideră că orice program FORTRAN utilizează fișiei ele * și * , compilatorul FORTRAN inserînd automat tabelele de descrie: и ale acestor fișiere Din acest motiv, dacă fișierele utilizator sînt cuprinse în fișierul de lucrări sau în fișierul de editare la imprimantă, ele nu mai necesită nici o descriere specială în cadrul programului FORTRAN Folosirea oricăror alte fișiere necesită declararea lor în programul FORTRAN DECLARAREA FIȘIERELOR Declararea fișierelor în programele FORTRAN se realizează prin intermediul ordinelor * DEFINE FILE sau * USED FILE între aceste două ordine există o singură deosebire și anume, în cazul folosirii lui *USED FILE nu se mai implantează în memorie tabela de descriere a fișierului * , deci se presupune că datele de intrare ale programului nu sînt conținute în fișierul de lucrări Un ordin de declarare a fișierelor are următorul format general: « * * ordin idex (listă de parametri ) — n și conține: — caracterul * în coloana ; — caracterul blanc, ■—j în coloana ; — coloanele - DEFINE FILE urmat de un blanc, sau coloanele - USED FILE urmat de un blanc; — în continuare, lista de argumente; — idex reprezintă î'rfexul de exploatare al fișierului și este format dintr-o literă și o cifră Litera trebuie să fie aceeași cu cea asociată fișierului prin cartela ASSIGN, iar cifra poate fi , sau O, indicînd modul de prelucrare (tabelul VILI); TABELUL VIU MOD DE PRELUCRARE CIFRA DIN IDEX SCRIERE CITIRE SCRIERE/CITIRE « este un număr întreg, pozitiv, diferit de zero și reprezintă identificatorul fișierului în instrucțiunile 'ORIRAN specifice prelucrării fișierelor Fișierele distincte sînt identificate prin numere FORTRAN distincte Dacă din anumite motive la scrierea programului, același fișier a fost referit prin mai multe numere I OR I RAN nl, nl, ni, acest lucru se specifică în DEFINE FILE sau USED FILE astfel: * ordin idex (lista de argumente) = nl = « = ni alte tisteme’d^opXTcIre СІ°Г F RTRAN scrise pentru cu numerele I ЛЖ b?RrRAX fișierele sistem * , * sînt folosite conțină instrucțiunea: ' PCnt™ & P”tea fl executat progrâmul trebuie să * * c * define FILE * = ,* = prin care fișierului * j se asociază, pe lingă și numărul iar fișierul * E'de агД mXPTi nU rel? ‘° Ș‘ ’ în a«st •₽«« "ici ° referă la fișierele sistem SUP *mentara % Observație Descrierile explicite sînt prioritare față de cele implicite Astfel, dacă intr-un program apare: * DEFINE FILE « = ,« = fișienil de lucrări va avea asociat numai numărul FORTRAN , iar fișierul de editare la imprimantă numai numărul ; • — lista de parametri conține informațiile legate de tipul și organizarea suportului, structura și organizarea fișierului, numărul și dimensiunea zonelor tampon Parametrii care pot figura într-o astfel de listă sînt descriși în tabelulVII TABELUL ѴП Parametrul DVT: dd tipul dispozitivului periferic dd poate fi: MT bandă magnetică RD disc DIAM FD disc RAD DK disc oarecare MD disc MD CD AD BD CR MD MD MD disc disc disc cititor cartele CP perforator cartele PR imprimantă [RCF: /] formatul articolului FB > fișier pe disc în aces direct fișier exploatat cu BUFFER IN/OVT format format fofmat • format format dimensiunea articolului nedefinit f fix fix blocat variabil variabil blocat Valoare implicită este RCFîU - parametrul este Ignorat pentru RCF:V F sau V în celelalte cazuri fiind obligatoriu mm iv lungimea utilă a articolului (număr de octeți ехргь mat în baza ) •> , Dacă RCF:FB sau D, mm este lungimea fixă a articolului Dacă RCF VB mm indică lungimea maximă a articolului - TABELUL VII (continuare) Parametrul dimensiunea zonei de format fix numărul de zone Descrierea parametrului nn este lungimea, în baza , a zonei tampon Zona tampon trebuie sa poată conține înregistrarea fizică maximă Parametrul e ignorat pentru RCF:B tampon tampon [MDOisssj organizarea suportului [SFD] Valoarea implicită este BFS: p poate avea valorile sau Valoare implicită BFN : sss poate fi: STD organizare standard NST organizare nestandard Nu are sens decît pentru banda magnetică Valoare implicită MDO:STD Parametrul permite în cazul fișierelor exploatate în acces secvențial, organizarea lor secvențială în absenta sa fișierele se consideră de organizare nedefinită Un fișier organizat secvențial nu poate fi prelucrat decît fie prin citire, fie prin scriere (cifra din idexul fișierului nu poate fi decît sau ) și admite, dacă este pe suport magnetic, articole de orice format (L, F sau V), dar negrupate în blocuri în cazul fișierelor pe cartele sau la imprimantă articolele nu pot fi decît [BFS:um] nn Lungimea blocului = В Antet înregistrarea FORTRAN • Blancuri Fig VII în cazul utilizării opțiunii SFD articolele sînt automat blocate de către SGF, factorul de blocare fiind stabilit în funcție de dimensiunea zonei tampon (BSF) Astfel secvența următoare: * DEFINE FILE A (DVT : RD, BFS : , RCF : F) = WRITE ( , ) А, В, M, N FORMAT ( F , ) definește un fișier pe disc, cu articole de format fix, dimensiunea blocului fiind de B In acest fișier se scrie un articol, care va cuprinde valorile variabilelor А, В, M, N Lungimea înregistrării FORTRAN este x + + x = de octeți, deci ultimii octeți ai articolului vor fi completați cu blancuri Dacă se consideră exemplul următor: * USED FILE Bl (DVT : RD, RCF : F DIMENSI N X ( ) READ ( , ) X F RMAT ( F ) WRITE ( , )X F RMAT (", І Х, F ) , BFS : , SFD) = pnn USED FILE se declară un fișier pe disc, organizat secvențial Fișierul a fost creat printr-un program anterior Articolele din fișier sînt de format fix, dimensiunea unui articol fiind de B Din fișier se citește primul articol conținutul său fiind depus în zona X, conform instrucțiunii FORMAT Vec-torul X este apoi afișat la imprimantă Se pot organiza fișiere cu acces secvențial, pe bandă sau disc în care articolele să iie de format fix blocat ' articole*™" W°C Se " artico,e> ficcare bloc avînd același număr de zona^npon * SCrîS ІП fiȘiCF nUma‘ dU₽ă " S‘aU înreg’strat n articole în De exemplu: * USED FILE A (DVT : AD, RCS : , BFS : RCF • FBI - DIMENSION B( ), A( ) ' ' ~ WRITE ( , ) В, C, D, E FORMAT ( E ) WRITE ( , ) A Fișierul A cu numărul FORTRAN are articole de format fix blocat; ^actorul de blocare este Fișierul poate fi prelucrat și prin scriere si prin citire Primul WRITE înregistrează pe fișier un bloc ( articole); primul articol conține valorile tabloului В și ale variabilelor C și D, al doilea articol conține valoarea lui E, restul fiind completat cu blancuri (fig VII ) Lungimea blocului B articol В articol В Antet bloc Llaticuri Cel de-al doilea WRITE introduce în zona tampon un articol conținînd valorile tabloului A Scrierea pe fișier se va face numai după completarea zonei tampon cu cel de-al doilea articol din bloc (deci după un nou WRITE) Programul FORTRAN poate folosi, în afară de fișierul A, numai fișierul sistem * , deoarece descrierea de fișiere s-a făcut printr-un ordin USED FILE Articole de format variabil Se consideră că fiecare articol formează un bloc Programatorul trebuie să indice dimensiunea maximă a blocului prm parametrul BFS Blocul este prevăzut cu un antet de B pentru bandă și pentru disc, în care se înscrie lungimea efectivă a blocului Lungimea articolelor fiind diferită, ea trebuie de asemenea menționa pentru fiecare articol în parte în acest scop se atașează articolu an de AB Lungimea unui articol este lungimea înregistrării BCR * P antetul (fig ѴІІ За) B A Biet bloc Lungimea blocului lungimea max art lung, înregistr FORTRAN B Fig Vil a In descrierea de fișier, prin parametrul RCS se declară lungimea maximă a unui articol votjtraV « «te mai mică decît lungimea maximă a articolului se scrie numai partea utilă a zonei tampon ( g Antet articol Înregistrare FORTRAN — Programarea sistemului de calcul Lungimea blocului (zona tampon) loc scris articol В ’ ’ Antet loc Antet articol j I înregistrare FORTRAN ■ ■■■ ■ Neutilizat Fig VIL b J rticcMc de format variabil pot fi blocate Se pot organiza astfel fișjere care să ccnțină blccuri de dimensiuni diferite, fiecare blcc avînd un număr varia-bil de articole Dimensiunea zenei tampen va fi dată de factorul de blocare înmulțit cu lungimea maximă a unui articol Aceasta este lungimea maximă a înregistrării FORTRAN, la care se adaugă B antetul articolului, plus antetul blocului ( B pentru bandă și B pentru disc) Dacă în urma execuției unei instrucțiuni WRITE înregistrarea FORTRAN este mai scurtă decît spațiul înregistrabil din articol (lungimea articolului — ) în zona tampon se înscrie numai partea utilă a articolului Cînd în zona tampon rămîne un spațiu disponibil mai mic decît RCS se scrie pe fișier blocul; dacă este cazul, partea rămasă din înregistrarea FORTRAN se scrie în blocul uimător Exempiu: ♦ * DEFINE FILE АО (DVT:MT, RCF:V BFS: ) = , B (DVT:RD, * RCF:VB, RCS: , BFS: , BFN: ) = = ’ DIMENSION V ( ), X ( ) WRITE ( , ) V WRITE ( , )A, В, V ( ), C WRITE ( , ) (V(I), I = , ), X FORMAT ( T ) FORMAT ( F , F , El ) FORMAT ( F ) în secvența de program din exemplu se declară fișierele A și В: primul pe bandă magnetică, iar al doilea pe disc Fișierul A are articole de format variabil, cu lungimea maximă В ( B— B antetul blocului și-antetul articolului) Fișierul de pe disc conține tot articole de format variabil, blocate Lungimea maximă a unui articol este de B, iar cea a blocului octeți Acest fișier se identifică în programul FORTRAN prin numerele și In prima instrucțiune de scriere in fișier referirea la acesta s-a făcut nrin numărul , în cea de a doua prin numărul Prezența parametrului BFN: în DEFINE FILE indică folosirea unei singure zone tampon Pentru fișierul A zona tampon rezervată este de В Prin instrucțiunea WRITE ( , ) V se scriu în fișier trei blocuri (fig ѴІІ л) Zona tampon rezervată pentru fișierul В este de B Cele două instrucțiuni de scriere creează articole în fișier, de dimensiuni В, B si respectiv B, care sînt depuse în zona tampon Deoarece aceste articole ocupă B, iar spațiul rămas disponibil este mai mic decît B (dimensiunea maximă a unui articol) conținutul util al zonei tampon este înregistrat în fișier, unde se creează astfel un bloc de + = В (fig VII J) * :> * В bg zonei tampon ~ В — Bloc scris В • -— B ■—Bg bloc (tampon) - В Bloc scris B B - Bloc nr В Antet art z, nefolosită (а) Lg bloc (tampon) — НОВ -Bloc scris B В '- В - В Antet bloc Antet Art В В В art (Ь) zonă tampon folosită Antet Art К ) listă c „„ j сИігса fără F RMAT Fișierele cu articole de format variabiniocate sau nu, admit introducerea și extragerea datelor fără desene, e Instrucțiunile de intrare/ieșire au în acest ca forma READ («, END = Kl, ERR = Ș WRITE (я) listă; unde », END si ERR au semnificațiile specificate anterior La scrierea și citirea cu format, numărul de caractere ocupate de fiecaie variabilă era specificat prin descriptorul FORMAT; cînd nu se folosește descrierea de format, fiecărei variabile i se rezervă în articol un spațiu conform dimensiunii reprezentării interne, (pentru variabile întregi, logice, reale simplă precizie — B, pentru variabile reale dublă precizie și variabile complexe — B, iar pentru variabile complexe în dublă precizie B) Imormația care trebuie transmisă este împărțită în seturi de caractere de lungime egală cu lungimea maximă a articolului minus (RCS- ); ultimul set de caractere are lungimea egală sau mai mică decît RCS- , după cum numărul de caractere din care este constituită informația este sau nu un multiplu de RCS- Fie următoarea secvență: * DEFINE FILE B (DVT:RD, RCF:VB, RCS: , BFS T ) = DIMENSION V( ), X( ) WRITE ( ), V, X, А, В, C, D, M, N Instrucțiunea WRITE creează pe fișierul cu numărul FORTRAN blocul din figura VIL x = B Bloc = В В Antet llotr A met art V(l) V( ) Antet art X(l) X( ) ABCD 'Antet art Fig ѴП э Utilizarea scrierii și citirii fără FORMAT prezintă avantajul reducerii timpului de transfer al unei informații, nemaifiind necesare operațiile de conversie Astfel, informația odată înregistrată în fișier, la o prelucrare ulterioară nu va trebui convertită în reprezentarea internă c Instrucțiuni auxiliare pentru fișierele cu acces secvențial pe bandă sau disc Instrucțiunea REWIND are formatul general; REWIND n și realizează închiderea fișierului cu numărul FORTRAN n Următoarea prelucrare a fișierului (READ sau WRITE), avînd ca prim efect deschiderea fișierului, se va face la nivelul primului articol din fișier Dacă ultima prelucrare a fișierului a constat într-o operație de citire (READ), închiderea fișierului presupune verificarea etichetelor de sfîrșit de fișier și rebobinarea Dacă ultima prelucrare a fișierului a constat într-o operație de scriere (WRITE) sau o instrucțiune ENDFILE pentru o bandă nestandard, închiderea presupune și scrierea de etichete pentru suportul organizat standard sau a două mărci de fișier pentru benzile nestandard Instrucțiunea END FILE are formatul general; ENDFILE n unde n este numărul FORTRAN al unui fișier Dacă fișierul este pe suport organizat standard, această instrucțiune are ca efect închiderea fișierului Următoarea instrucțiune READ sau WRITE fișicrul,,i și prclucrarea se va etei“a ’-X Dacă suportul este organizat nestandard, instrucțiunea ENDFIIF produce scrierea unei mărci de sfîrșit de fișier; fișierul rărtne deschis, dispt zitivul de citire scriere fiind poziționat după marca de sfîrșit de fișier Astfel, dacă se cere sa se scrie o marcă de sfîrșit de fișier pe o bandă nestandard, să se închidă fișierul și să se poziționeze banda la încenutul fisi erului, se vor folosi instrucțiunile ENDFILE și REWIND P Ș Instrucțiunea BACKSPACE La fișierele organizate nedefinit (deci cînd nu apare parametrul SFD în descrierea de fișier) este posibilă poziționarea dispozitivului de citire/scriere înaintea ultimei înregistrări fizice scrise sau citite Acest lucru este important deoarece, în mod normal, nu există acces la o înregistrare din fișier decît parcurgînd toate înregistrările anterioare, deci un eventual control al ultimei scrieri nu s-ar putea face imediat Pe de altă parte se poate realiza poziționarea fișierului înaintea unui Lloc „ENDFILE", ceea ce permite scrierea în continuare a articolelor în fișier (deci, se extinde fișierul) Operația de poziționare „înapoi" este declanșată de instrucțiunea BACKSPACE n unde n este numărul FORTRAN al fișierului prelucrat Instrucțiunea este fără efect dacă fișierul este poziționat la început Observație Ca și unele instrucțiuni tratate în capitolele precedente, nici instrucțiunea de citire a fișierelor secvențiale, READ cu opțiunea END=K, nu a fost concepută ținînd seama de principiile programării structurate în consecință, pentru a avea certitudinea obținerii unui program structurat în cazul utilizării la intrare a unor fișiere cu acces secvențial, se poate recurge la o variabilă logică, numită, de exemplu E F, care să permită folosirea structurilor alternative și repetitive, condiția care se testează fiind prezența sau absența unei mărci de sfîrșit de fișier în acest scop E F are pe toată durata consultării fișierului valoarea FALSE , iar în momentul întîlnirii unei mărci de sfîrșit de fișier i se atribuie valoarea TRUE , prin instrucțiunea care urmează instrucțiunii CONTINUE cu eticheta K Prin urinare, instrucțiuni de tipul F(EOF)GOTO sau IF( NOT EOF)GOTO permit simularea tuturor structurilor repetitive cunoscute Pentru problemele care prelucrează fișiere în acces secvențial es*e utilizarea structurii repetitive condiționate intern (condiția din tste FIȘIERE CU ACCES DIRECT în cazul fișierelor depuse pe orice tip de disc este informații Fișierele cu acces direct sînt organizate nedefinit Articole! de lungime fixă, grupate în blocuri fără antet (fig Fiecărui articol din fișier i se atașează un număr: pnn‘ numărul articolului ce trebuie prelucrat Acest luci u c terii datelor în ordinea dorită BLOC Articol Operațiile de intrare/ieșire se realizează cu ajutorul instrucțiunilor READ și WRITE cu acces direct, în care, spre deosebire de cele pentru acces secvențial, se specifică pe lîngă numărul FORTRAN al fișierului și numărul articolului care se prelucrează Scrierea sau citirea articolelor din fișier se poate face cu sau fără format Execuția unei instrucțiuni READ sau WRITE provoacă transferul unor informații între zona tampon și fișier, începînd cu informațiile conținute în articolul al cărui număr se specifică în instrucțiune Numărul de articole prelucrate printr-o astfel de instrucțiune depinde de numărul elementelor din lista de intrare/ieșire și, dacă este cazul, de specificațiile de format Sistemul furnizează, la cerere, numărul articolului care urmează ultimului articol prelucrat Lungimea blocului se alege astfel încît să poată cuprinde cea mai mare înregistrare FORTRAN Instrucțiunile READ și WRITE pentru fișierele cu acces direct sînt de forma: si f unde: READ (n'i, v, /, ERR = d) listă WRITE (w ‘, v,f) listă я reprezintă г — ERR == d Exemplul : numărul FORTRAN al fișierului; o expresie întreagă pozitivă a cărei valoare indică poziția relativă a articolului ce trebuie citit sau scris (numărul articolului în fișier) ț i este despărțit de primul argument printr-un apostrof (dacă ar fi fost despărțit printr-o virgula ar fi putut fi confundat cu o etichetă de FORMAT); argumentul opțional care reprezintă eticheta unei instrucțiuni FORMAT; este opțional și reprezintă o variabilă întreagă» ™mită variabilă asociată, a cărei valoare, la sfirșitul execuției operației de intrare/ieșire, coincide cu numărul articolului care urmează ultimului articol prelucrat; o specificație opțională, care indică eticheta instiiK țnmn executabile Ia care se transferă con-io ul în cazul unei erori de transmitere a datelor *DEFINE FILE Al (DVTîRD, RCE;D, RCS: , BFS ) = DIMENSION V( ) ' ' READ ( ' ,К, ) V • FORMAT ( F ) în aceasta secvență de program instrucțiunea READ citește datele pentru din fișierul cu numărul FORTRAN , înccpînd âu articolul cu numărul Deoarece, conform instrucțiunii FORMAT o înregistrare FORTRAN conține J elemente din F și ecupă X = octeți, pentru a obține datele pentru întreg vectorul F se vor citi articole din fișier (I articol furnizează datele pentru elemente din F) Variabilele F(l), F( ) F( ) primesc valori din articolul , F(ll), F(I ) F( ) din articolul iar F( I), F( ) ( ) din articolul La sfîrșitul operației de citire К va avea valoarea + — Exemplul : * DEFINE FILE A (DVT:MD, RCF:D, RCS: , BFS: ) = DIMENSION M( ) DO I = , READ ( ,l)M FORMAT ( ) WRITE ( T, )M CONTINUE Conform formatului o înregistrare FORTRAN are x = B, deci va ocupa un articol în fișier Scrierea se face începînd cu articolul , în care se înregistrează valorile /( ), /( ) /( ); se scriu articole Exemplul : * DEFINE FILE B (DVT:MD, RCF:D, RCS: , BFS: ) = DIMENSION A ( ) DO I = , READ ( , ) A FORMAT ( F ) WRITE ( ' ) A CONTINUE Scrierea pe disc se face fără=EORMAT Fiecare^fement din A va ocupa B, deci pentru scrierea întregului vector se vor înregistra X = B, adică două articole —~ Astfel, dacă se înregistrează elementele unei matrici cu coloane și de linii, se introduce pe rînd în memoria centrală cîte o linie în vectorul A, matricea urmînd să fie în întregime înregistrată pe disc în cazul fișierelor cu acces direct, o operație de intrare/ieșire poate fi pregătită poziționînd dispozitivul de citirc/șciicre pe acel cilindru de pe disc corespunzător articolului care urmează a ii preluiiat Aceasta se realizează prin instrucțiunea FIND: FIND («'») unde n și i au aceeași semnificație ca și în cazul instrucțiunilor READ și WRITE cu acces direct Instrucțiunea este efectivă numai dacă instrucțiunea de citire/senere care urmează se referă la articolul cu numărul i, în acest caz operația de intrare/ieșire se execută mai rapid Exemplul : ' DEFINE FILE B (DVT:RD, RCF:D, RCS: , BFS: ) = DIMENSION M( ) FIND ( ' ) READ ( ' )M Simultan cu execuția instrucțiunilor ce urmează după FIND ( ) și preced pe READ ( ' )M se caută și se găsește articolul cu numărul din fișierul cu numărul FORTRAN > % * Exemplul : DIMENSION V( ), \V( ) READ ( , ) I, V FORMAT ( , F ) WRITE ( 'I, )V FORMAT ( F ) І = *A—B/C FIND ( ' ) W(K) = (A + B)*K WRITE ( 'I, )W Se observă că folosirea instrucțiunii FIND nu are rost decît în cazul celei de a doua instrucțiuni de scriere în fișier APLICAȚII ȘI PROBLEME Progra ul VILI, Se consideră un fișier pe cartele FCART într-o magazie Pe fiecare cartelă s*au înregistrat relativ la produsele care intră — codul produsului -> ICOD — denumirea produsului DEN — cantitatea introdusă în magazie CANT — prețul unitar pentru produsul respectiv PU Macheta cartelei este descrisă in figura VIL c» în FCART pot exista, mai multe cartele cu același cod produs (in momente diferite s-au introdus în magazie anumite cantitftți dintr-un produs) în urma unei sortări prealabile cartelele cu același cod sînt în secvență ’ COD а DENUMIRE PRODUS COST TOTAL b f Fig VII Se propune ca pentru fiecare produs să se determine valoarea întregii cantități aflate în magazie și să se listeze o situație cu aceste rezultate (fig VII b) ' ** Pentru rezolvarea problemei se va prelucra pe rînd fiecare cartelă din FCART Valoarea întregii cantități dintr-un anumit produs se depune in I\ AL Deoarece pot fi mai multe cartele ca același cod, pentru acestea în TVAL vor trebui cumulate valorile CANT X PU Pentru a compara couul actual cu cel citit anterior se folosește o zonă de manevră care păstrează, li un moment dat, prima înregistrare^cu codul diferit de codul anterior In figura VIL# sint descrise schema de prelucrare și schema logică conform căreia se va realiza programul VILI Programul VII Se dă un fișier pe cartele reprezentînd operații CEC, cu macheta descris! in figura VII a Se cere crearea unui fișier pe bandă care să reproducă fișierul pe cartele S-a considerat că fișierul de pe cartele este nevid Programul se poate completa ușor pentru a ține seama și de situația în care fișierul este vid (programul VILI) In figurâyV’H Qfc și c sînt descrise schema de prelucrare și schema logică a programului de creare a fișierului (programul VIL ) Programul V I Să se consulte fișierul pe bandă creat in programul anterior ș: să se obțină o listă cu codul și numele persoanelor care au soldul mai mic de de lei Schema logică este descrisă în figura VIL Pe baza acestei scheme s-a elaborat programul VII Programul ѴП Să se actualizeze fișierul ’SOLDI’RГ creat în programul VIL » prin adăugarea de noi articole de același tip Pentru a putea adăuga articolele, fișierul ‘SOLDURI’ trebuie mai intii citit în întregime» iar apoi, folosind instrucțiunea BACKSPACE, poziționat înaintea mărcii de sfîrșit de fișier Programul este VIU Programul VII Cu datele conținute in fișierul ‘SOLDURI’ de pe MTl săsecreezeun fișier pe disc, în acces direct, fiecare articol conținînd cîmpurde ICOD, NUME și cîmpul SOLD actualizat (SOLD = SOLD F DEP - REST) Pentru fiecare articol numărul său este dat de ICOD, deci o instrucțiune de scriere pe disc va fi de forma: WRITE (n’IC')D, f) ICOD, NUME, SOLD Astfel, accesul direct la articol se face ne baza valorii cimpului ICOD O astfel de scriere ra permite ulterior completarea fișierului prin inserarea de noi articole Programul este VIL с (prelucrare) ( start ) [ICODA*- ICOO| TVAL-*— CANTxPU ф *( ) |dENA(I)-«— DEN( )| |EOF«— TRUE~] с* Fig VII UOB FISIER »AN:II »PNÎIOANA СОМРІЦЕ FORTRAN • о о о о о о * PROGRAM DE CREARE A UNUI FIȘIER * PE BANDA MAGNETICA f • DEFINE FILE A (DVT:MT,RCS: »BFS: »RCF:FB)s DIMENSION NUME( ) LOGICAL EOF EOF= FALSE CONTINUE READ ( » »END= ) ICOD»NUME«OEP»REST»SOLD FORMAT( ♦ A » F • ) GO ТО CONTINUE E F= TRUE CONTINUE IF(EOF) GO ТО WRITE( » ) ICOD»NUME,OEP»REST»SOLO FORMAT(I , A » F O ) GO ТО CONTINUE ENDFILE STOP •END LINK INIT DVT:MT,VSfMTlMAN ASSIGN AtOVTîMT,VSJMTIMAN LABEL A,FN:«SOLDURI♦ RUN TlME: »NL: SANDU ADELA MANASE ILEANA O DUMITRU MARIN AVRAM MARIa sooooo oo; EOJ programul vn •> I Fig VII PROBLEME Se consideră o matrice reală A, Să se creeze un fișier pe bandă care să conțină, pentru fiecare element al matricei, următoarele informații: — valoarea elementului: — valoarea absolută a elementului; — rădăcina pătrată din valoarea absolută; — pătratul elementului: — puterea a treia a elementului; Să se prelucreze fișierul creat pe bandă prin programul anterior, extrăgind la imprimantă toate înregistrările care conțin informații referitoare la numere cuprinse în intervalul [— , - ] Să se creeze un fișier pe bandă cu înregistrări care au cîmpuri alfanumerice, fiecare cu Pentru acett fișier se alege idexul A (s-a luat deoarece este o creare de fișier) Drept-număr pentru fișier se ia Pentru a putea crea, fișierul este nevoie de un vector cu componente pentru a scrie din memoria centrali pe bandă JOB FISJER AN:! IOO PNîIOANA’ COMPILE FORTRAN с с * PROGRAă DE CONSULTARE A FIȘIERULUI # PE BANDA CREAT IN PROGRAMUL * « * « »«* ** * ООО** o * **»* * * ♦ DEFINE FILE Al(DVT:MT RCF:FB HCS: BFS: )= DIMENSION NUME( ) LOGICAL EOF EOF= FALSE CONTINUE READ( » ♦EN s ) ICOtHNUME OEP REST SOLD FORMAT(I A F ) GO ТО CONTINUE EOFs TRUE? CONTINUE IF(EOF) GO ТО } IF( NOT (SOLO LT )) GO ТО THEN WRITE( ) ICOD NUME FORMAW »» X І Х А ) CONTINUE GO ТО CONTINUE STOP END /LINK ASSIGN A DVTîMT VStMTlMAN LABEL A FNî«SOLDURI» RUN TIMEt^O EOJ PROGRAMUL V t Să se facă un program pentru scrith^a la imprimantă a fișierului creat anterior Ș Se consideră un fișier pe cartele Pe)fiecare cartelă sint scrise trei numere N B ( A și D PARAM actualizare prin modificarea cîmpului SOLD din am mite articoe PARAM = modificare și adăugare PARAM » adăugare de noi articole • Modificarea cîmpului SOLD se face pentru articolele care au același code» ' tr-un fișier pe cartele Cartelele conțin ICOD, NUME, DEP Și RE e înregistrate în cîmpurile DUP rau REST soldul vechi este actualizat: SOLD ° DEP—REST (evident, unul din cîmpurile DEP sau REST va fi întotdeauna g fiind înregistrata fie o operație de depunere, fie o operație de ,$nt preluate tn caz ul în care actualizarea presupune adftugare de noi articole, ace P dintr-un fișier pe cartele — Programarea sistemului de calcul CAPITOLUL VIII PRELUCRĂRI SPECIALE N FORTRAN INSTRUCȚIUNI PENTRU ALOCAREA ZONELOR DE MEMORIE în mod normal pentru fiecare variabilă utilizată intr-un program s alocă o zonă de memorie în care se amplasează valoarea variabilei în scopul realizării unei economii de memorie prin alocarea de zone со-типе pentru mai multe variabile, se pot utiliza instrucțiunile COMMON și EOUIVALENCE a Instrucțiunea EQUIVALENCE realizează alocarea unei zone comune de memorie pentru mai multe variabile care fac parte din aceeași unitate de program Instrucțiunea EQUIVALENCE este neexecutabilă și neetichetabilă și se scrie’ în program înaintea instrucțiunilor executabile, după instrucțiunile de declarare a tipului și dimensiunilor variabilelor Format general EQUIVALENCE (lista ), (lista ), , (lista N) unde: lista i (i == , , , V) conține nume de variabile simple, nume de variabile indexate sau nume de tablouri, separate prin virgulă Toate variabilele din lista i ocupa aceeași zonă de memorie O astfel de listă de variabile se numește listă de echivalență Este posibil ca variabilele din aceeași listă să nu fie de același tip în acest caz, dacă o variabilă a cărei valoare ocupă octeți de meniorie este declarată echivalentă (ocupă aceeași zonă de memorie) cu o variabilă a cărei valoare ocupă octeți de memorie, atunci valoarea celei de a doua variabile este aceeași cu valoarea aflată în primii octeți ai primei variabile De exemplu, în cazul secvenței de instrucțiuni: COMPLEX C EQUIVALENCE (C, R) valoarea variabilei reale R este aceeași cu valoarea părții reale a variabilei complexe C Dacă, într-o listă de echivalență există un element de tablou» toate celelalte elemente ale tabloului (care nu fac parte din listă) se amplasează în memorie, în funcție de poziția acestuia* De exemplu: DIMENSION A( ) EQUIVALENCE (B, A( )) în acest caz valoarea elementului A( ) este aceeași reale B, iar valorile celorlalte elemente ale tabloului Ă morie în funcție de poziția elementului A( ) cu valoarea variabilei se amplasează în me- valența pot figura tablouri de dimensiuni diferite De exemplu: DIMENSION A( , ), B( ) EQUIVALENCE (A, B) ’ în acest caz echivalența se stabilește astfel: A(l,l) A( ,l) A(l, ) B(l,l) B( ,l) B(l, ) A( , ) A(l, ) A( , ) B( , ) De asemenea, în lista de echivalență pot figura tablouri cu număr diferit de dimensiuni (număr diferit de indici) De exemplu: DIMENSION A( ), B( , ) EQUIVALENCE (A, B) Echivalența se stabilește astfel: A(l) A( ) A( ) A( ) A( ) B(l,l) B( ,l) B(l, ) B( , ) Instrucțiunea EQUIVALENCE este utilizată în special, în două cazuri; — în scrierea unui program pentru o aceeași variabilă s-au folosit пшпе-diferite, situație ce se poate întîmpla atunci cînd părți ale aceluiași program sînt scrise de programatori diferiți Pentru a nu se rescrie întregul program, se va scrie în program o instrucțiune EQUIVALENCE în a cărei listă vor figura toate numele date variabilei respective — în cursul execuției unui program nu este necesar ca anumite variabile să se afle concomitent în memoria calculatorului Zonele de memorie în care se află valorile variabilelor a căror prezență nu mai este necesară se pot folosi pentru alte variabile utilizînd o instrucțiune EQUIVALENCE* b Instrucțiunea COMMON realizează alocarea unei zone comune de memorie pentru mai multe variabile care fac parte din unități de program diferite Este instrucțiune neexecutabilă și neetichetabilă și se scrie, în fiecare unitate de program pentru care se alocă o zonă de memorie, înaintea instrucțiunilor executabile și după instrucțiunile de declarare a tipului și dimensiunilor Formal general COMMON /BL / lista /BL / lista /BLN/ lista n unde: , , — BLî (i = , , N) este numele (eticheta) blocului comun de memorie în care sînt amplasate valorile variabilelor din lista i, — lista i (i = , , , , N) este o listă de variabile care pot fi: — variabile simple; — nume de tablouri urmate eventual de dimensiunile ace■ • în listele de variabile asociate blocului cil ace^\nnmFj / iepr'ogram bilele trebuie să coincidă ca număr, ordine și tip în toate uni ' ț P • Exemplu: Program apelant COMMON /BLOC/ К, X, Y ( , ) • • Program apelat COMMON /BLOC/L, А, В ( , ) în zona de memorie numita BLOC, valoarea variabilei L este aceeași cu valoarea variabilei K, valoarea variabilei A este aceeași cu valoarea variabilei X, iar elementele tabloului В sînt aceleași cu elementele tabloului Y Mărimea unui bloc comun, declarat într-o unitate de program, este dată, de suma unităților de memorie necesare elementelor introduse în bloc prin instrucțiunea COMMON Este posibil să se aloce o zonă comună de memorie, pentru unități de program diferite, în care numărul de variabile ale căror valori urmează să fie amplasate în blocul comun să nu fie același pentru fiecare unitate de program In acest caz zona comună de memorie se numește bloc comun general sau bloc blanc Mărimea blocului blanc este cea care corespunde celei mai mari zone declarate în cazul utilizării unui bloc comun blanc, în formatul instrucțiunii COMMON nu mai apare numele (eticheta) blocului O astfel de instrucțiune se va scrie: % a) Blocul comun blanc declarat între două blocuri etichetate este marcat prin două bare consecutive, după care urmează lista variabilelor ale căror valori sînt amplasate în blocul respectiv Exemplu: Program apelant COMMON /А/ А, В II X /У/ К, L Program apelat * COMMON /А/ C, D jjxi 'xi ' ■ ‘Program apelat COMMOn/y/ki,*Ll • • a * COMMON X , X /Y/*M, N* In programul apelant valoarea variabilei X este amplasată într-ur bloc comun blanc, iar prm programul apelat se amplasează, in zena ccmună genială, pe lingă valoarea variabilei XI, care este aceeași cu valoarea variabilei X și valoarea variabilei X Instrucțiunile EQUIVALENCE și COMMON pot fi folosite în aceeași unitate de program în acest caz instrucțiunea EQUIVALENCE poate avea ca efect prelungirea unui bloc ccmun Această prelungire este admisă numai la sfîrșitul blocului De exemplu, în cazul secvenței de instrucțiuni: DIMENSION A( ), COMMON X ( ), Y EQUIVALENCE (X(l), A ( )) elementele tabloului A se amplasează în blocul comun blanc, declarat de instrucțiunea COMMON, astfel: X(l) X( ) X( ) Y A(l) A( ) A( ) A( ) A( ) A( ) A( ) Elementele A( ), A( ) și A( ) prelungesc blocul ccmun blanc la dreapta Variabilele amplasate într-un bloc ccmun nu pot figura ca argumente în lista de argumente a subprogramelor Variabilele amplasate într-un bloc comun blanc pot fi inițializate prin instrucțiunea DATA , Pentru a ilustra medul de utilizare a instrucțiunii COMMON se reii exemplul dat în cazul subprogramelor de tip SUBROL INE» in care calculează suma elementelor din fiecare coloană a tabloului A( , ) PROGRAM APELANT COMMON A( , ) READ ( , ) ((A(I, J) J = FORMAT ( F ) CALL SUMA STOP END SUBROUTINE SUMA PROGRAM APELAI DIMENSION VV ( ) COMMON AA ( , ) DO J = , VV (J) = , ), I = , ) l i i • j DO = , VV (J) = VV(J) + AA(I, J) CONTINUE CONTINUE WRITE ( , ) (VV(J), J = , ) FORMAT (", 'SUMELE DE PE COLOANE * SINT'/", F ) RETURN END Tablourile A ( , ) și A A ( , ) care apar în cele două unități de program sînt declarate într-un bloc comun blanc (ocupă aceeași zonă de memorie) Prin această declarație, care figurează în fiecare unitate de program, valorile elementelor tabloului sînt transmise subprogramului de tip SUBROUTINE și, de aceea numele tabloului nu apare ca argument al subprogramului De asemenea, afișarea rezultatelor avînd loc în subprogram, tabloul ale cărui elemente constituie rezultatele sumelor efectuate este declarat numai în această unitate de program Din aceste motive lista de argumente a instrucțiunilor CALL și SUBROUTINE este vidă FACILITĂȚI SUPLIMENTARE DE REALIZARE A OPERAȚIILOR DE INTRARE/ IEȘIRE a Instrucțiuni de conversie internă Scrierea și citirea în diferite zone ale memoriei interne se realizează prin intermediul instrucțiunilor ENCODE și DECODE Conversia internă a informațiilor se face conform unor specificații FORMAT Instrucțiunea ENCODE realizează transferul unor informații înregistrate într-una sau mai multe zone de memorie, într-o altă zonă de memorie, fiind astfel echivalentă cu un WRITE cu FORMAT, informația fiind însă scrisă în memorie și nu extrasă pe un suport extern Instrucțiunea, DECODE transferă informații dintr-o zonă de memorie într-una sau mai multe zone de memorie, fiind astfel analogă unei instrucțiuni READ cu FORMAT, cu diferența că informațiile sînt citite din memoria internă și nu de pe suportul extern Este important de subliniat faptul că prin ENCODE se pot scrie zone / r!^ (e lungime nestandard (număr de caractere, care poate fi diferit de B, B), iar рпд DECODE se pot citi informațiile înregistrate într-astfel de zone de memorie într-o instrucțiune ENCODE sau DECODE se specifică: — numărul de caractere care se transferă • - FORMATUL conform căruia se realizează conversia • - numele zonei de memorie în care se scrie sau din care se citește • — numele zonelor de memorie care furnizează informațiile de scris sau care primesc informațiile citite miormațule de scris sau Forma generală a unei instrucțiuni ENCODE este: И ENCODE (c V, n) listă este o etichetă, a cărui prezență este opțională; — o constantă întreagă sau numele unei variabile întregi si reprehntă numărul de caractere al înregistrării interne; unde: n — eticheta unei instrucțiuni FORMAT sau numele unui tablou care conține formatul'; — numele unei variabile neindexate, sau numele unui tablou sau al unui element de tablou prin care se identifică zona de memorie în care se va scrie; — numele unei variabile întregi, a cărei valoare după execuția instrucțiunii va conține numărul de caractere efectiv transferate, n este opțional Prezența acestui argument permite efectuarea unui control asupra execuției instiuctiunii (se compară valoarea lui n cuc); — o listă de intrare/ieșire listă în urma execuției unei instrucțiuni ENCODE valorile elementelor din lista de intrare/ieșire sînt convertite conform FORMAT-ului specificat prin/, într-unul sau mai multe șiruri de caractere (în funcție de dimensiunea listei) ; primele c caractere din șir sînt înregistrate- în memorie în zona definită de v ( caracter/octet) Lungimea unui șir de caractere este definită de FORMAT Dacă un șir de caractere are mai puțin de c caractere, se completează diferența cu blancuri la dreapta, dacă’ depășește numărul declarat în c, se înregistrează numai primele c caractere din șir, restul nefiind neglijate Zona de memorie definită de v va fi formată dintr-una sau mai multe înregistrări cu c caractere Fiecare înregistrare începe la o adresă multiplu de Instrucțiunea DECODE are forma generală: [£] DECODE (c,/, v, u) lista unde eJ c, f, v, и și lista au aceeași semnificație ca în cazul instrucțiunii, EXCODE, cu precizarea că v identifică zona de memorie din care primele c caractere sînt transferate în elementele specificate în listă Transferul se face conform formatului specificat de / în cazul unei citiri din memorie; numărul o de caractcie nu trebuie să fie mai mic decît numărul de caractere din care este formată înregistrarea definită prin format Dacă valoarea lui c este mai mare decît lungimea înregistrării definite prin format, caracterele suplimentare prin înregistrarea internă srnt neglijate Adresa zonei definită de v este întotdeauna o adresă cuvînt-memorie b Instrucțiunea NAMELIST O altă facilitate a limbajului FORTRAN constă în posibilitatea transferului de date între un suport extern și memorie, fără a se utiliza în instrucțiunile de citire sau scriere liste de intrare/ieșire și fără a se utiliza pentru conversie instrucțiunea FORMAT Această facilitate a limbajului se folosește îndeosebi pentru punere^ Ia punct a programelor Pentru realizarea unui asemenea transfer de date se asociază *nstiucțm nilor de citire/scriere o instrucțiune NAMELIST Aceasta este o ins neexecutabilă, neetichetabilă, care poate fi plasată oriunde m r-o de program, înainte de instrucțiunea de intrare/ieșire asociata Instrucțiunea NAMELIST are următorul format genei al NAMELIST/Xl/Ztsta i/Xl/lista /Хп/lista n — XI, X , , Xn sînt nume simbolice, denumite nume de NAME IST și sînt întotdeauna încadrate de bare; — lista cuprinde cel puțin un element; elementele unei liste pot fi nume de variabile neindexate sau nume de, tablouri, separate prin virgu iste diferite pot conține elemente comune a Parametrii formali ai procedurilor nu pot apare intr-o astîel de bta Referitor la numele de NAMELIST se impun următoarele restricții — nu poate fi definit decît o singură dată intr-o unitate de program, — nu poate fi utilizat decît într-o instrucțiune de intrare/ieșire, — nu poate fi utilizat ca parametru de procedură; — trebuie să difere de orice alte nume simbolice utilizate ш aceeași unitate de program Instrucțiunea READ NAMELIST are următoarea formă generală: и READ (u, X) unde: — и identifică suportul de pe care se citesc datele; — X este un nume de NAMELIST Printr-o astfel de instrucțiune se citesc de pe suportul extern valorile variabilelor care figurează într-o listă cu numele X în vederea realizării transferului și conversiei datelor acestea au, pe suportul extern, o formă specială, și anume: — primul caracter din înregistrare este ignorat; — al doilea caracter este &, urmează numele de NAMELIST scris fără bkncuri; — numele de NAMELIST este urmat de cel puțin un blanc; — în continuare se scriu termenii care trebuie transferați și convertiți, separați prin virgulă și un număr oarecare de blancuri; — sfîrșitul datelor de intrare se marchează prin caracterele & END Astfel, o instrucțiune READ citește o înregistrare logică formată dintr-una sau mai multe înregistrări fizice, detectarea începutului înregistrării realizîndu-se prin citirea caracterului &, iar a sfîrsitului prin citirea caracterelor & END O înregistrare fizică se termină Ia nivelul unei virgule sau a unui blanc (un termen nu poate face parte din două înregistrări fizice) întotdeauna primul caracter al unei înregistrări fizice este ignorat I ermenii care formează înregistrarea au următoarea formă: v = C unde: v este un nume de variabilă neindexată, un nume de tablou sau un nume de element de tablou care apare în lista cu numele Л”; o constantă de tip corespunzător sau un șir de constante despărțite prin virgulă, în cazul variabilelor indexate Cînd v este un nume de tablou, prima constantă din șir se introduce în primul element dm tablou ș a m d C!ncț v ? n n?me de element de tablou și există un șir de constante, primul element dm șir se introduce în zona afectată elementului de tablou specificat și următoarea constantă, din șir se introduce în zona de memorie afectată elementului de tablou de rang imediat superior ș a m d în cazul în care mai multe constante din șir au aceeași văloare se poate folosi o scriere prescurtată de forma A*C, unde К este numărul de repetări ale constantei C r Exemplul : >ă se citească, cu NAMELIST, valorile unui vector J cu componente a isti'itc{iwiea WRITE cu NAMELIST are forma generală: и WRITE (и, X) unde m și A' au aceeași semnificație ca în cazul instrucțiunii READ cu NAMELIST • Această instrucțiune are ca efect scrierea pe suportul extern a valorii, variabilelor declarate în prealabil într-o instrucțiune NAMELIST, caapar-ținînd unei liste cu numele X Datele sînt scrise într-o formă analoagă cu cea descrisă în cazul introd -cerii datelor cu READ cu NAMELIST Primul caracter este întotdeauna blanc Valorile variabilelor sînt convertite în constante de tip corespunzător ca și cînd operația de scriere s-ar fi efectuat cu o instrucțiune FORMAT care conținea descriptori de forma: In pentru variabile întregi; PGw pentru variabile reale; IPGw pentru variabile în dublă precizie; LI pentru variabile logice Valoarea lui n este astfel îneît zerourile nesemnificative nu apar O valoare complexă se reprezintă ca două numere reale separate prin virgulă și încadrate de paranteze Instrucțiunea WRITE cu NAMELIST oferă astfel posibilitatea editării datelor într-o formă clară și estetică, fără a fi necesară o descriere ' în absența cartelei TREE sau dacă expresia de descriere a arborelui este absent i oru de legături va da programului o structură lunar Cartela TREE trebuie plasată imediat înaintea cartelei LIXK SEGMENTAREA PROGRAMELOR FORTRAN / z în absența oricărei indicații referitoare la segmentare, în urma compilării unui program FORTRAN rezultă: z — un modul obiect program pentru fiecare unitate de program (program principal sau subprogram), conținînd instrucțiunile în limbaj mașină generate de compilator, datele și variabilele locale proprii modulului respectiv și, în cazul modulului obiect corespunzător programului principal, și informații cu caracter general; , — cîte un modul obiect de date comune pentru fiecare bloc COMMON, etichetat sau nu Editorul de legături grupează într-un singur segment modulele obiect generate de compilator, împreună cu modulele obiect corespunzătoare subprogramelor necesare din biblioteca FORTRAN în cazul în* care segmentarea este necesară, programatorul trebuie să -specifice componența fiecărui segment din program, precizînd pentru fiecare segment modulele componente Se pot constitui trei tipuri de segmente: segmente program, segmente de date și segmente de date comune Un segment program poate fi compus din programul principal și/sau unul sau mai multe subprograme (SUBROUTINE sau FUNCTION) Identificarea și constituirea unui segment program se face prin intermediul ordinului SEG care are următoarea structură: • SEG nume — nume este numele atribuit segmentului program si este format din — caractere arfanumerice, primul trebuind să fie o literă Ordinul SEG anunță că toate unitățile de program care îi urmează, pînă la întîlnirea unui nou ordin SEG său a unuia din ordinele LINK sau TREE \ fi descris ulterior), vor forma un segment program; de asemenea ăză constituirea segmentului Acest ordin se plasează în fata unei -d ТЧ/*\Т\*Т'Т> А ж T / A • — - - segment de date se formează prin separarea datelor de instrucțiuni sau ^program) va cuprinde numai datele afe- ent de tip program Firește un segment de date este întotdeauna aso- unități program FORTRAN (înaintea ordinului COMPILE) Unseem progr unui modul obiect program; deci pentru o anumită unitate de instrucțiunile în limbaj mașină generate de compilator constituind un a segmen e ip program, Firește un segment de date este întotdeauna asociat unui segment program și este implantat în memorie odată cu acesta SP ifică faptU Că dore*te chituirea unui segment de aff cOMPÎLE "Й S'seSSa Plastad cadrul aces,uia- după JSegmentul de date asociat segmentului program va fi alcătuit din toate iden,iM Ksra™tui ” :USt‘a ZapZri Seem,!n, РГ гат Si taC‘rea' ori ori nn?NTOnStit«Frn дт д’ ^m,cnt se specifică printr-un ordin SEG- - ' PUSa‘ °гЛпи* COMP LE di" oadrul sântului a Segmentarea programelor care depășesc dimensiunea partiției în cazul m care programul depășește dimensiunea partiției în care urmează să se execute, el va fi impaițit in două sau mai multe segmente program care nu trebuie să fie prezente in memorie simultan Segmentele vor fi pe rînd încărcate în aceeași zonă de memorie, fiind preluate" în momentul apelului de pe discul sistem încărcarea succesivă, în aceeași zonă de memorie a unor segmente program se numește reacoperire (sau suprapunere) împărțirea programului în segmente program trebuie astfel realizată îneît în ansamblu să se păstreze logica programului în FORTRAN aceasta se realizează datorită faptului că un segment program nu poate fi constituit decît din unități de program Astfel programul va fi conceput ca un progiam • principal și unul sau mai multe subprograme, din care se vor constitui segmentele program ° Deoarece după terminarea execuției unui subprogram, adică la întîlnirea instrucțiunii RETURN, controlul trebuie transmis unității de program apelante, orice subprogram trebuie să se afle în memorie cohcomitent cu unitatea de care a fost apelat Întrucît această unitate poate fi la rîndul său un subprogram, unitatea de program care l-a apelat pe acesta trebuie de asemenea să fie în memorie Cele menționate fiind valabile pentru toate subprogramele rezultă că, in orice situație, în memorie trebuie să se afle programul principal Segmentul care îl conține se numește segment rădăcină și rezidă în memorie pe toată durata execuției programului și, prin urmare, nu poate fi reacoperit Acest segment dirijează încărcarea succesivă, în aceeași zonă de memorie, a celorlalte segmente program, prin intermediul instrucțiunii CALL, în cazul în care segmentul apelat este constituit din subprograme de tip SUBROU-TINE (în CALL figurînd numele subprogramului sau numele punctului de intrare definit de ENTRY)sau a instrucțiunilor prin care se apelează subpro-gramele de tip FUNCTION Tf De remarcat că în funcție de felul în care s-au grupat unitățile de program în segmente, rădăcina poate conține, pe lîngă programul principal și unul sau mai multe subprograme De asemenea, mai rezultă că după execuția fiecărui segment controlul se întoarce la segmentul rădăcină pentru a se continua execuția programului b Segmentarea programelor care nu conțin declarații COMMON în cazul în care un program, care nu conține declarații COMMON depășește dimensiunea partiției afectate, modulele obiect program trebuie regrupate în diferite segmente prin utilizarea ordinului SEG Structura programului se descrie prin TREE La alcătuirea segmentelor trebuie ținut seama de următoarele restricții: — lungimea celei mai lungi ramuri (lungimea totală maximă a tuturor segmentelor ce pot fi prezente la un moment dat în memorie) trebuie să nu depășească lungimea partiției; un subprogram dintr-o ramură nu poate fi apelat dintr-un segment situat pe o ramură paralelă Cînd se stabilește structura segmentată a programului, în general este bine să se țină seama de frecvența de apelare a diferitelor subprograme și să se amplaseze în segmentul rădăcină modulele cele mai des apelate; acest lucru realizează o economie de timp, operația de încărcare în memorie fiind lenta Se consideră un program FORTRAN alcătuit dintr-un program principal PP care apelează două subprograme SP și SP Programul principal are o lungime de Kocteți, SP de Kocteți și SP de Kocteți st Se presupune că dimensiunea partiției afectate programului este de Kocteți Se observă că lungimea programului este de К ( К -f- К -f-+ К), deci programul va trebui segmentat Structura de reacoperire este prezentată în figura IX Se observă că segmentele S și S se reacoperă reciproc cînd sînt apelate de segmentul rădăcina Sl Astfel la un moment dat în memoria internă a calculatorului se găsește fie segmentul și я IX S fie Sl și S Lungimea celei mai lungi ramuri (ramura Sl — S ) este de K, deci problema este rezolvată După cum s-a specificat subprogramul SP nu poate fi apelat din segmentul S și nici invers (subprogramul SP nu poate fi apelat din segmentul ) Secvența cartelelor de comandă în acest caz este următoarea: JOB SEG Sl COMPILE FORTRAN CALL SP CALL SP END SEG S COMPILE FORTRAN SUBROUTINE SP END SEG S COMPILE FORTRAN SUBROUTINE SP date END TREE Sl (S , S ) LINK RUN К • EOJ c Segmentarea programelor care conțin declarații COMMON Dacă programul care depășește dimensiunea partiției conține și date comune mai multor unități de program, pe lingă definirea segmentelor program trebuie bnitățT: §І UnU SaU таІ mUlte se«mcntc de date comune Există două posi- — fiecare modul obiect de date comune (blanc sau etichetat! constituia un segment distinct, purtînd numele modulului (pentru m d u , \ J date comune neetichetat numele este F% BLK), sau de — mai multe module obiect de date comune se grupează într-un sineur segment, purtînd numele unuia din module b Ti>Av cazur* programatorul trebuie să indice compilatorului FOR- TRAN numărul de segmente de date comune pe care dorește să le formeze Acest lucru se reahzeaza prin intermediul unui ordin * SEGMENT plasat în cazul programului principal, înaintea primei instrucțiuni FORTRAN si în cazul unui subprogram, înainte de instrucțiunea SUBROUTINE sau FUNCTION Ordinul * SEGMENT are următoarea structură: * SEGMENT Gl, G , • , Gn Cartela conține: — caracterul * în coloana i; — caracterul blanc în coloana ; — identificatorul SEGMENT în coloanele - ; — caracterul blanc în coloana ; — argumentele Gi în coloanele la Fiecare argument Gi reprezintă o grupare de module obiect de date comune și este de forma: C (atunci cînd segmentul de date comune conține un singur modul obiect si anume pe C), sau * ' ' - Ci + CI + Cp cu > (atunci cînd segmentul grupează toate modulele Ci , , Cp) Fiecare C sau Cj (j = , p) reprezintă numele unui modul obiect de date comune Fiecare grupare Gi face parte dintr-un segment distinct într-un program FORTRAN nu se pot crea decît cel mult segmente de date comune asociate unui anumit segment program (nu sînt disponibile decît registre generale pentru păstrarea adreselor de bază ale segmentelor) în cazul în care un segment grupează mai multe module obiect de date comune, numele segmentului este cel al primului modul care figurează in descrierea grupării în cartela SEGMENT Pentru fiecare grupare Gi se pot indica toate modulele constituen e, ar acest lucru nu este necesar, fiind suficient să se indice numele ™што u in grupare Acest lucru este valabil însă numai pentru ordinul b n ordinul TREE trebuind să fie specificate toate modulele obiect de date comune care constituie o anumită grupare E xemplu: Fie un ordin SEGMENT cu următoarea structură: * SEGMENT COM + COM , F% BLK, COM +COM n f Rezultă că cele module de date comune ale uni ți P grupate în trei segmente de date comune astfd: în nrimul segment de date — modulele de date comune COM și ССШ in pnmui scb Tmodulul de date comune neetichetat (F% BLK), în al doilea segment СОМЗ, COM și COM , în al treilea segment Observații necesar) pe mai multe cartele în această situație Argumentele Gi pot fi scrise (cînd e cartela care se va continua conține caracterul ♦ în coloana , iar cartela de continuare conține: — caracterul ♦ în coloana ; — caracterul blanc în coloanele н- ; argumentele se scriu în continuare din coloana ; — numele unui modul COMMON nu poate figura parpal pe o cartelă și parțial pe altă cartelă; despărțirea se face la nivel de virgulă sau *n acest caz fiind admise blancurile în cadrul descrierii Dacă se grupează într-un singur segment de date comune toate modulele obiect de date comune dintr-o unitate de program se poate utiliza cartela SEGMENT sub forma simplificată ♦ SEGMENT dar gruparea trebuie neapărat indicată în cartela TREE E xemplu: Dacă o unitate de program definește blocurile comune COM și COM și un bloc comun neetichetat și se dorește gruparea celor trei module de date comune în același segment ordinul SEGMENT poate avea una din următoarele forme echivalente: * SEGMENT sau * SEGMENT COM + COM + F% BLK Dacă fiecare modul obiect de date comune constituie un segment distinct, numărul de blocuri COMMON ce se pot utiliza în program este cel mult egal cu Gruparea mai multor module într-un segment înlătură acest dezavantaj d Segmentarea programelor a căror lungime depășește Kocteți în cazul programelor a căror lungime depășește Kocteți apar, de asemenea, două situații: — programele nu conțin blocuri COMMON ; — programele conțin blocuri COMMON - • Segmentarea programelor care nu conțin declarații COMMON Se consideră pentru început un program alcătuit dintr-o singură unitate de program^ care după editarea de legături depășește K In această situație programatorul va cere ca din modulul obiect inițial să se constituie un modul obiect program, care să conțină numai instrucțiunile in limbaj mașină generate la compilare și un modul obiect care să conțină datele programului Cel de-al doilea modul se va numi modul obiect de date Modulului obiect de date i se atribuie numele F%MDATA, iar modulului obiect program numele F%MAIN Editorul de legături va constitui aceste două module in distincte Astfel lungimea maximă a programului poate ajunge la K, fără să fie necesară vreo altă structurare (bineînțeles cu condiția ca fiecare modul în parte să nu depășească K) Cererea de constituire a două module obiect se adresează compilatorului prin intermediul unui ordin* SEGDATA Acest ordin are următoarea structură: * SEGDATA Cartela conține: — în coloana caracterul *, — în coloana caracterul blanc; — în coloanele — ordinul SEGDATA Cartela se plasează în program imediat după COMPILE In acest caz deși nu există decît un segment program, este necesară cartela SEG Astfel programul va avea o structură liniară de tipul ■ ■ > SEGDATA date JOB SEG PRIM COMPILE FORTRAN END LINK RUN EOJ Se observă că structura fiind liniară, nu se utilizează ordinul TREE Se consideră apoi, de exemplu, un program care a fost segmentat, dar există segmente program care depășesc K Pentru aceste segmente program se vor constitui segmente de date Constituirea segmentelor de date se specifică și în acest caz prin ordinul SEGDATA în același segment nu se poate utiliza decît un singur ordin SEGDATA, unui segment program ne-putîndu-i-se asocia decît un segment de date Atunci cînd segmentul de date se constituie într-un subprogram, ordinul SEGDATA are o structură oarecum diferită de cea descrisă anterior prin faptul că cuprinde și specificarea numelui atribuit segmentului de date: * SEGDATA (nume) — în coloana caracterul — nume — numele atribuit segmentului de date; acesta trebuie să fie diferit de orice alt nume de segment si de numele punctelor de intrare (definite prin FUNCTION, SUBROUTINE sau ENTRY); — ultimul caracter din nume este urmat de caracterul „)" Exemplu: Se consideră un program format din cinci segmente program: A, B, C, D și E Structura de arbore este descrisă în figura IX Segmentele Bt C și D sînt constituite dm subprogramele de tip SUBROUTINE SPB, SPC și SPD, iar segmentul E din subprogramul de tip FUNCTION ALPHA Se presupune că В are o dimensiune mai mare de K și trebuie să se constituie un segment de date cu numele CICO din datele segmentului D Programul va avea structura următoare: JOB SEG A COMPILE program B FORTRAN END SEG (OMl’II E FOR IRAN * SBGDATA (®|(()ітм! SFB END SEG C COMPILE FORTRAN SUBROUTINE SPC END SEG I) COMPILE FOR’l RAN SUBROUTINE SP ) END SEG E COMPILE FORTRAN FUNCTION ALPHA END TREE А (В, С, I) (E)) LINK RUN date EOJ Я Segmentul de date CICO este asociat numai segmentului program В și este încărcat în memorie atunci cînd segmentul В este apelat (la întîlnirea instrucțiunii CALL SPB) • Segmentarea programelor care conțin declarații COMMON Se consideră un program care conține un program principal și mai multe subprograme care folosesc date în comun și care a fost constituit în segmente program și segmente de dațe comune, pentru a nu depăși dimensiunea partiției Se poate întîmpla ca anumite segmente să aibă în continuare o dimensiune prea mare, în sensul că depășesc lungimea maximă admisibilă pentru un segment ( K) Pentru aceste segmente se vor constitui și segmente de date Dacă aceste segmente program conțin și declarații COMMON, pentru constituirea segmentelor de date comune se va folosi tot ordinul * SEGDATA, care de această dată va avea un dublu rol: de despărțire a modulului obiect într-un modul obiect de date și un modul obiect program, și de a da indicații asupra mo* ei^ IdJKTc°"strulre a ^gmentelor de date comune (același rol cu ordinul * SEGMENT), Y In această situație ordinul * SEGDATA are una din următoarele formei * SEGDATA Gl, G Gn în cazul unui program principal si * SEGDATA (nume) G\, G , Gn m cazul unui subprogram (SUBROUTINE sau FUNCTION) — Gi are aceeași semnificație ca în cazul ordinului * SEGMENT — nume este numele segmentului de date S S Deoarece pentru păstrarea adreselor de bază ale segmentului de date și segmentelor de date со- Fig ix mune asociate unui segment program nu sînt disponibile decît patru registre generale, rezultă că unui segment program care are asociat un segment de date nu i se pot asocia decît maximum segmente de date comune Astfel numărul grupărilor Gi dintr-o cartelă * SEGDATA este maximum egal cu trei Observații în cadrul aceluiași program anumite unități de program pot avea asociat cîte un segment de date, iar altele nu Există situații în care rezultatele obținute în urma execuției unui program diferă în funcție de faptul că programul a fost segmentat sau nu Fie, de exemplu, structura de reacoperire din figura IX , în care Si reprezintă un program principal, iar S și S subprograme Dacă ordinea de apel a subprogramelor S și S este astfel încît în memorie există succesiv ramurile: ■Иг în cazul primului apel al lui S se vor inițializa anumite variabile Aceste variabile vor fi reinițializate la cel de al doilea apel al lui S , ele nemaiavînd valorile rezultate în urma execuției subprogramului S La cel de-al treilea apel al lui S nu vor mai fi reinițializate segmentul S fiind deja încărcat în memorie De această observație trebuie ținut seama și în cazul apelurilor succesive de segmente program care au asociate segmente de date sau segmente de date comune Dacă un segment program conține unul din ordinele * SEGMENT sau * SEGDATA și unul sau mai multe ordine * DEFINE FILE, acestea se plasează înaintea primei instrucțiuni FORTRAN, ordinea lor fiind indiferentă CAPITOLUL X PARTICULARITĂȚI ALE LIMBAJULUI FORTRAN ÎN CAZUL MINICALCULATOARELOR FELIX Familia de minicalculatoare românești este înzestrată cu un sistem de operare multifuncțional, care poate acoperi o gamă largă de aplicații Acest sistem de operare se numește AMS (?ldaptable Multifuncțional System) Sistemul AMS permite execuția programelor de timp real, precum și dezvoltarea și execuția de programe, fie prin prelucrarea în loturi, fie interactiv, de la un singur terminal, fie în timp partajat, simultan de la mai multe terminale AMS este un sistem de operare orientat pe fișiere Astfel, programul sursă va sta la baza unui fișier sursă; în urma compilării va rezulta un fișier obiect, iar în urma editării de legături, un fișier imagine executabilă Datele de intrare sau de ieșire sînt de asemenea, organizate în fișiere, cu excepția cazului în care sînt introduse sau extrase direct de la terminal Fișierele pot fi create și prelucrate pe discuri sau benzi magnetice, accesul la informații fiind direct sau secvențial Sistemul de operare AMS permite prelucrarea de programe în FORTRAN IV, limbajul implementat în acest sistem prezentînd, față de limbajul FOR- RAN pentru FELIX C- , următoarele principale particularități: — alfabetul admite și caracterele speciale: „ ghilimele : două puncte S dolar ; punct și virgulă TAB caracter de tabulare; — identificatorii au numai primele șase caractere semnificative; — constantele hexazecimale sînt înlocuite de constante octale; o constantă octală este de forma: " n — n fiind un șir de cifre octale si , m reȘ’ acest caz operația logică se efectuează la nivelul blliloi este de tip întreg Fle de exemplu următoarea secvență; ‘ I « J Kt l AND K » J R iar K aCCStOr instvuctiuni- Kt va primi valoarea ( Ц) - în listele de intrare-ieșire și în instrucțiunile DO și GO ТО calculat se pot utiliza expresii de format general; — admite noi instrucțiuni de intrare-ieșire orientate pe periferic Acestea sînt: ACCEPT, analoagă unui READ cu FORMAT datele fiind citite de la consola sistemului și ТУРЕ, analoagă unui WRITE cu FORMAI' datele fiind, în acest caz, afișate la consola sistemului Formatul inMaicțiu nilor este: e ACCEPT f, listă de variabile e TYPE f [ listă de variabile] — nu se acceptă instrucțiunile USED FILE și BUFFER N/ UT: — fișierele exploatate în acces secvențial nu sînt descrise prin instrucțiunea DEFINE FILE, aceasta fiind rezervată fișierelor în acces direct; — operațiile de intrare-ieșire în acces direct se realizează cu ajutorul instrucțiunilor READ și WRITE în acces direct, fără format Fișierele exploatate în acces direct sînt descrise prin instrucțiuni DEFINE FILE de forma: DEFINE FILE u (m, n, U, v) [,u (m, n, U, v) ] unde: u este o constantă sau variabilă întreagă, care specifică numărul unității logice asociată fișierului; m este o constantă sau variabilă de tip întreg, care specifică numărul de articole din fișier; n este o constantă sau variabilă de tip întreg, precizînd lungimea hi cuvinte a articolului; U indică operație de intrare-ieșire fără format (nu se acceptă decît acest caracter) ; v este variabila asociată și are aceeași funcție ca în cazul fișierelor în acces direct din cadrul sistemului FELIX C- De exemplu, instrucțiunea: DEFINE FILE ( , , U, IV) asociază unitatea logică unui fișier în acces direct cu de articole, fiecait articol avînd lungimea de de cuvinte în fișier articolele sînt numerotate de la la După fiecare operație de intrare-ieșire IV va conține nuniaiu articolului care urmează celui prelucrat Instrucțiunea DEFINE FILE trebuie să fie plasată în program înaintea instrucțiunilor READ sau WRITE care exploatează fișierul specificat — nu se admit intrări și reveniri multiple dintr-un subprogram țms țiunile ENTRY și RETURN; nu sînt acceptate); — este permis accesul la directivele sistemului; t de — programele FORTRAN pot apela direct rutine sorise în Uninaj asamblare; — se pot realiza aplicații complexe de timp real E хеш piu în continuare se prezintă un program FOR FRAN Л* * * ^xteulat suma componentelor unui vector Programul a fost ce T S- DO - , IS==IS+IVECT RUN $FOR FOR>DK tTASK ♦ BJ«DK îTASK ♦FTN FOR>AZ >LNK DK tTASK ♦EXE=DK JTASKI♦OBJ > RIJN DK î T ASK ♦ EXE SUMA COMPONENTELOR UNUI VECTOR' , , , , , , , , , VECT-C , , -Я, , , , , , , ) SUMA “• PROGRAMUL X l * к Pentru creareaTișierului sursă s-a utilizat un program utilitar Editorul de texte —EDI Prin EDI DK : TASKI FTN s-a apelat utilitarul și s-a specificat fișierul sursă (fișierul sursă este înregistrat pe discul DK :, are numele TASKI și este de tip FȚN, adică în FORTRAN) Semnul > care precede comanda arată că se pot introduce comenzi de la terminal Programul EDI a răspuns că este gata să creeze fișierul sursă solicitat, afișînd la terminal mesajul: [CREATING NEW FILE] INPUT In continuare s-au introdus de la terminal liniile sursă După introducerea liniei END s-a eliberat editorul de texte printr-o comandă care produce afi- Ш • • w sarea caracterului* Z în acest moment s-a terminat operația de creare a fișierului sursă, care este de acum înregistrat pe disc Prin RUN $ FOR s-a apelat compilatorul FORTRAN Acesta se prezintă prin FOR > și se introduce linia de comandă care în dreapta semnului = are descrierea fișierului sursă, iar în stingă, descrierea fișierului obiect Compilatorul se prezintă în continuare în vederea introducerii de noi comenzi Cînd nu este cazul, se eliberează Se apelează apoi editorul de legături —LNK și se cere editarea legăturilor pentru fișierul obiect DK : TASK OBJ în vederea obținerii fișierului imagine executabilă (de tip EXE), cu numele TASKI, pe discul DK : Se cere apoi execuția programului începe execuția programului și se afișează la terminal mesajul din instrucțiunea FORMAT cu eticheta (în urma execuției instrucțiunii TYPE ) Execuția programului continuă cu instrucțiunea ACCEPT, și de la consola sistemului sînt introduse datele (valorile celor componente ale vectorului, despărțite de virgulă) Programul preia datele de intrare, continuă execuția si afișează la consolă rezultatele (în urma execuției instrucțiunilor TYPE ІѴЕСТ și TYPE , LS) PARTEA A DOUA PROGRAMAREA ÎN LIMBAJUL COBOL CAPITOLUL XI NOȚIUNI INTRODUCTIVE ISTORIC Introducerea într-o măsură tot mai mare a sistemelor de prelucrare automată a datelor în domeniile: financiar, contabil, comercial etc , domenii a căror caracteristică este volumul mare de date prelucrate prin operații relativ simple, a impus necesitatea creării unui limbaj de programare adecvat acestor prelucrări, accesibil și care să nu fie dependent de un anumit tip de calculator Problema creării acestui limbaj a fost discutată pentru prima dată la conferința organizată, în mai , la Washington Lucrările conferinței au stabilit că realizarea limbajului este necesară și totodată posibilă Comitetul conferinței — CODASYL (COnference on DAta SYstems Languages) — numește un comitet pentru coordonarea lucrărilor de elaborare a limbajului Acest comitet s-a întrunit în iunie , stabilind un grup de lucru Sarcina grupului de lucru a constat în examinarea limbajelor existente (FLOW-MATIC, ÂIMACO, CON FRAN etc ) și stabilirea necesității unui nou limbaj Concluzia grupului de lucru a fost: elaborarea unui nou limbaj, pentru care se propune numele COBOL (COmmon Bussiness Oriented Language) Pe baza specificațiilor elaborate în noiembrie este realizată prima versiune a limbajului COBOL, care a fost publicată în aprilie în același an, a fost creat un comitet pentru dezvoltarea limbajului care, pe baza observațiilor și recomandărilor referitoare la prima versiune, elaborează a doua versiune, publicată in anul sub numele COBOL- Versiunea următoare, publicată în sub numele COBOL- Extended prezintă, în plus, facilitățile: editare de rapoarte și sortare de fișiere Versiunile ulterioare — care au adus clarificări, modificări și extensii versiunilor anterioare — au fost publicate în anii , , etc, evoluția limbajului fiind facilitată de publicația COBOL Journal of Dcvelofimcnl, Activitatea de standardizare a limbajului a fost inițiată în , de către un comitet al ASA (American Standard Association), astăzi denumit ANSI (American National Standards Institute) Prima versiune standardizată — COBOL ANS (American National Standard) a fost publicată în CARACTERISTICI rnnSnd J°artC аЛ°ріа dc limbapi natuial (limba engleză), limbajul COBOL este accesibil unui cerc larg dc utilizatori Prin clauzele de descriere și instrucțiunile de care dispune, limbajul COBOL permite definirea organizărilor clasice dc fișiere (secvențiale, secven-țiale-indexate, selective), implicate în rezolvarea problemelor de gestiune precum și a operațiilor prin care se realizează prelucrarea acestor fișiere (creare, consultare, actualizare, sortare) De asemenea, comparativ cu alt? limbaje de programare, limbajul COBOL prezintă facilități suplimentire pentru definirea și realizarea de rapoarte Totuși, prin setul de instrucțiuni aritmetice și de control, prin formatele diverse de reprezentare a datelor pe care le admite, prin posibilitatea definirii și prelucrării tablourilor, limbajul COBOL poate fi utilizat și în rezolvarea problemelor din alte domenii Termenul „common" sugerează faptul că programele COBOL sînt, în general, compatibile, puțind fi compilate pe orice tip de calculator care are implementat un compilator COBOL în cadrul acestui manual este prezentată versiunea limbajului COBOL-ANS , implementată la calculatoarele de tip FELIX METALIMBAJUL PENTRU DESCRIEREA SINTAXEI Metalimbajul reprezintă un ansamblu de simboluri și reguli cu ajutorul cărora se alcătuiesc construcțiile ce descriu sintaxa limbajului COBOL • Simbolurile metalimbajului sînt: parantezele drepte, acoladele și Punctele de suspensie Semnificația acestora este următoarea: — parantezele drepte încadrează o construcție COBOL opțională; — acoladele încadrează unul sau mai multe elemente ale unei construcții COBOL, indicînd faptul că un singur element poate fi utilizat în acel Ioc al construcției; — punctele de suspensie, care pot apărea în interiorul sau la sfîrșitul construcției indică repetarea de un număr de ori a unui element al construcției sau a construcției însăși • Regulile de interpretare a construcțiilor COBOL, prezentate prin intermediul metalimbajului, sînt următoarele: — cuvintele scrise cu litere mari sînt cuvinte rezervate; — cuvintele scrise cu litere mici reprezintă elemente ale construcțiilor ce vor fi precizate de utilizator (prin unități structurale ale limbajului, cum ar fi: identificatori, constante etc ) în momentul inserării acestora în programe; — cuvintele tipărite cu aldine (îngroșate cx BLOC) sînt скѵаі/е cheie, care trebuie să apară obligatoriu în cadrul construcției, iar cuvintele tipărite cu drepte (ex CONTA INS) sînt cuvinte opționale, , , , Cuvintele rezervate reprezintă succesiuni de caractere care au o semnificație bine definită în cadrul limbajului și care nu pot fi utilizate pentru referirea fișierelor, articolelor, datelor, instrucțiunilor etc CHARACTERS RECORDS Pentru exemplificarea simbolurilor și regulilor metalimbajului se vor prezenta două construcții COBOL BLOCK CONTAIN S întreg- ITO înlreg- \ MOVE nume~dată-\ ТО numc-dată [,nume-dată-S] Prima construcție reprezintă o clauză COBOL — clauza BLOCK — prin care sc indică dimensiunea înregistrărilor fizice ale unui fișier pe suport magnetic, iar a doua, o instrucțiune COBOL — instrucțiunea MOVE — care descrie o operație de transfer (atribuire) Cuvintele BLOCK, ТО, RECORDS și MOVE sînt cuvinte cheie, iar CONTA NS și CHARACTERS, cuvinte opționale în cazul clauzei BLOCK, cuvintele întreg- și îritreg- vor fi înlocuite, de programator, prin constante care indică dimensiunea minimă și, respectiv, maximă a înregistrărilor fizice; dacă fișierul are înregistrări de aceeași dimensiune, aceasta va fi indicată prin întreg- , cuvintele întreg- nefiind utilizate Cuvintele CHARACTERS și RECORDS au fost scrise între acolade deoarece dimensiunea înregistrărilor fizice poate fi indicată fie prin numărul de caractere, fie prin numărul de articole care o compun în cazul instrucțiunii MOVE, nume-dată- , nume-dată- , nume-dată- vor fi înlocuite prin identificatorii asociați datelor implicate în operația de transfer și anume: identificatorul care înlocuiește cuvîntul nume-dată- desemnează data emițătoare, iar identificatorii ce înlocuiesc cuvintele nume-dată- și nume-dată- , datele receptoare Instrucțiunea MOVE poate descrie o operație de transfer în care există o singură dată receptoare; sau o operație de transfer în care există mai multe date receptoare, numărul datelor receptoare poate fi însă mai mare decît doi, lucru indicat prin punctele de suspensie Forma în care este prezentată o construcție COBOL prin intermediul metalimbajului constituie formatul general al construcției respective I l I CAPITOLUL XII ELEMENTELE DE BAZA ALE LIMBAJULUI COBOL I STRUCTURA PROGRAMELOR (OBOI Elementele de bază ale limbajului și structura programelor COBOL vor fi prezentate prin intermediul programului XILI, în care sînt descria două fișiere numite: — FIȘIER-INTRARE (fișier pe cartele), ale cărui articole conțin date referitoare la elevii unui liceu și anume: clasa, numele, adresa și media anuală: IE IE (fișier la imprimantă), ale cărui articole conțin aceleași date > Pentru a simplifica referirea în program a articolelor și a datelor, acestora li s-au asociat nume (identificatori) diferite: ART-I, CLASA-I, NUME-I, ADRESA-I, MEDIE-I, și, respectiv, ART-E, CLASA-E, NUME-E, ADRESA-E și MEDIE-E Algoritmul descris de program indică citirea succesivă a articolelor fișierului FIȘIER-INTRARE și tipărirea la imprimantă, după citirea fiecărui articol, a unui rînd ce conține datele unui elev Prelucrarea ia sfîrșit în momentul în care este detectată marca de sfîrșit de fișier a fișierului FIȘIER-INTRARE în cazul în care fișierul FIȘIER-INTRARE nu conține niciun articol, prelucrarea constă în tipărirea untii mesaj la imprimantă (vezi schema din figura XII l) Programele COBOL au o structură arborescentă formată din construcții standard dispuse pe mai multe niveluri La primul nivel sînt situate diviziunile, care reprezintă părți ale programului ce grupează informații de un anumit tip In cadrul unei diviziuni, aceste informații sînt regrupate în secțiuni, iar in cadrul secțiunilor, în paragrafe (rubrici) Diviziunile sînt în număr de patru și apar obligatoriu în ordinea următoare: IDENTIFICATION DIVISION ENVIRONMENT DIVISION, DATA DIVISION, PROCEDURE DIVISION Titlul unei diviziuni, formal din două cuvinte rezervate urmate dc un pu ct trebuie să figureze singur pe o linie a formularului și se scrie din coloana în programul XII l, pentru citirea cu ușurință a acestuia, liniile ce conțin titlurile diviziunilor sînt urmate de cîte o linie-comentarim In cadrul unui program COBOL o linie este considerata comentariu dacă, în coloana , conține caracterul * O linie comentai iu poate conține orice combinație de caractere a IDENTIFICATION DIVISION (diviziunea de identificare) Este formată numai din paragrafe și grupează informațiile necesare identificării programului Formatul general al acestei diviziuni este următorul: (IDENTIFICATION l ID f PROGRAM-ID nume program, [AUTHOR nume autor ] [INSTALLATION centrul de calcul și sistemul de calcul ] [DATE-WRITTEN data scrierii programului ] [DATE-COMPILED data compilării programului ] [SECURITY destinația programului ] [REMARKS funcția programului ] PROiRAMl-JPRINCIPAL NU SCRIE-CITESTE DA •FIȘIER = lU' | Deschide FISIER-INTRARE FIȘIER-IEȘIRE | / Citește FISIER-INTRARE DA EOF Fig ХІІЛ I /, Scrie /LIPSA /ARTICOLE' E(F SFIRSIT-FISIER NU NU DA |SFlRÎIT-FISIERs' ^~| I ' Citește FISIER-INTRAR Scrie ART-E MEDIE-E = MEDlE-l AORESA-E=AORESA-I NUME-E=NUME*l CLASA-E=CLASA-I Singurul paragraf obligatoriu este paragraful PROGRAM-ID care indica numele programului, numele programului calc un identificator format din maximum opt caractere Celelalte paragrafe conțin informații a căror semnificație este indicata chiar de titlul paragrafuluiaceste informații sînt însă considerate de compilator comentarii în general, un paragraf conține una sau mai multe fraze; fraza reprezintă o unitate structurală care se termină printr-un punct urmat de un spațiu Fiecare paragraf este identificat printr-un nume (care este un cuvînt rezervat), care se scrie pe formular din coloana și este urmat de un punct și cel puțin uri spațiu Frazele ce compun paragrafele urmează numelor acestora, însă pot fi scrise numai în coloanele — în cazul diviziunii IDENTIFICAȚION, cu excepția paragrafului PRO-GRAM-ID, toate paragrafele sînt paragrafe-comentariu Frazele ce compun paragrafcle-comentariu reprezintă succesiuni de caractere COBOL Caracterele permise în limbajul COBOL sînt de trei tipuri: numerice, alfabetice și speciale (tabelul XII l) în limbajul COBOL se numește caracter alfanumeric, un caracter oarecare (numeric, alfabetic sau special) TABELUL XII l Caractere de bază ale limbajului COBOL TIP CARACTERE numerice , , , , , , , , și alfabetice А, В, C, D, E, F, G, H, I, J, K, L, M, N, O, P, Q, R, S, T V, V, W, X, Y, Z și spațiul I speciale | alfanumerice orice caracter numeric, alfabetic sau special b ENVIRONMENT DIVISION (diviziunea de echipament) Poate conține două secțiuni: CONFIGURATION SECTION și INPUT-OUTPUT SECTION; informațiile grupate în această diviziune sînt specifice sistemului de calcul și versiunii limbajului utilizat Titlul unei secțiuni —format din numele secțiunii cuvîntul SECTION și un punct urmat de spațiu — se scrie singur pe o linie a formularului, începînd din coloana Ambele secțiuni ale diviziunii ENVIRONMENT sînt formate din paragrafe Frazele acestor paragrafe pot conține comentarii, clauze pentru descrierea fișierelor etc Paragrafele secțiunii CONFIGURATION sînt: — SOU RCE-COMPUTER, care indică sistemul de calcul care realizează compilarea programului (informație considerată de compilator comentariu) : — OBJ ECT-COM PUTER, care indică sistemul de calcul care realizează execuția programului (informație considerată de compilator comentariu) ; — SPECIAL-N AMES, care precizează caracterele care pun in evidență, la editarea (tipărirea) valorilor datelor, marca zecimală și simbo u monetar Paragrafele secțiunii INPUT-OUTPUT sînt: - FI LE-CONT ROL, care precizează caracteristicile fișierelor utilizate în program; — I-O-CONTROL, care indică tehnicile particulare de prelucrare a f ișierelor Formatul general al diviziunii ENV R NMENT este următorul: ENVIRONMEM DIVISION CONFIGUTATION SECTION [SOURCE-COMPUTER paragraf comentariu ] [OBJECT-COMPUTER paragraf comentariu ] [SPECIAL-NAMES clauze ] [INPUT-OUTPUT SECTION FILE-CONTROL SYSIN | | SELECT nume fișier ASSIGN ТО [SYSOUT } } ’ ’ ' (SYSPUNCH I J [I-O-CONTROL clauze ]] în paragraful FILE-CONTROL există cîte o frază SELECT pentru fiecare fișier utilizat în program în fraza SELECT, prin clauza SELECT se indică numele (nume-fișier) asociat fișierului, iar prin clauza ASSIGN, nfentifi-catorul de exploatare (idex) care, dacă fișierului îi este asociată o unitate standard a sistemului, este precizat prin unul dintre cuvintele rezervate SYSIN, SYSOUT, SYSPUNCH Semnificația acestora este următoarea: SYSIN —unitatea de intrare a sistemului; SYSOUT —unitatea de ieșire a sistemului; SYSPUNCH — unitatea de perforare a sistemului Numele asociat fișierului prin clauza SELECT, reprezintă un identificator în limbajul COBOL, identificatorii, numiți și cuvinte utilizator, reprezintă succesiuni de caractere alfabetice (exceptind caracterul „spațiu"), numerice și caracterul — (liniuță), fiind utilizați pentru referirea programelor, fișierelor, articolelor, datelor, instrucțiunilor etc (în formatele generale ale construcțiilor COBOL, ei vor fi indicați prin notațiile nume-program, nume-fișier, пите-articol, nume-dată etc ), Ca regulă generală, identificatorii au o lungime maximă de de caractere, conțin cel puțin o literă, iar liniuța, dace-este utilizată, nu poate fi primul sau ultimul caracter Exemple de identificatori: FIȘIER-BANDA; MODUL- ; COD-MATER AL; NUME-ELEV c DATA DIVISION (diviziunea de date) Conține descrierea fișierelor și a datelor prelucrate prin execuția programului și poate fi structurată în patru secțiuni: — FILE SECI'ION, care figurează în programele care utilizează fișiere si conține descrierea acestora și a articolelor ce le sînt asociate; — WORKING-STORAGE SECTION, care apare în program numai dacă în prelucrare sînt implicate date (constante, rezultate intermediare, indici etc ) care nu aparțin articolelor fișierelor și conține descrierea acestora; — LINKAGE SECTION, care apare numai în cadrul subprogramelor COBOL și conține descrierea parametrilor formali; REPORT SECTION, care figurează numai în programele care editează rapoarte, prin intermediul editorului de rapoarte, și conține descrierea acestora " articolelor și a datelor se realizează care sintactic este asemănătoare Descrierea fișierelor, rapoartelor, țnni intermediul rubricilor de descriere, care reprezintă unitățile structurale ale diviziunii DA IA O rubrică de descriere г ' H btrucruraie ale unei (гаге din celelalte două diviziuni prezinute, ш" sZmTmX t>r^c*zcaz^ faractvristicilc unui fișier sau ale unei date Exi ta deci două tipuri de rubrici: ruMei Л afi;ilrA>, și rubrici dedcsc!^ a datelor Primul tip poate apărea numai in -((țaita ) ( ( lf (( de-al doilea tip, în toate secțiunile diviziunii DATA % Formatul general al diviziunii DATA este următorul: DATA DIVISION [FILE SECTION {rubrică de descriere a fișierelor, {rubrică de descriere a datelor } } ÎWORKING-STORAGE SECTION {rubrică de descriere a datelor } [LINKAGE SECTION {rubrică de descriere a datelor } REPORT SECTION {rubrică de descriere a datelor } Rubrici de descriere a fișierelor Formatul general, simplificat, al rubricilor de descriere a fișierelor (numite și rubrici FD) este următorul: FD nume-fișier LABEL RECORDS IS RECORDS ARE OMITTED [;RECORDING MODE isj^!] Fiecărui fișier descris printr-o frază SELECT în paragraful FILE-CONTROL al diviziunii ENVIRONMENT, trebuie să-i corespundă, în secțiunea FILE, o rubrică FD Clauzele rubricii FD indică: • clauza LABEL: fișierului nu îi sînt asociate etichete de identificare • clauza RECORD NG: fișierul are articole’de format fix (opțiunea F) sau de format variabil (opțiunea V) Observație Fișierele pe cartele trebuie să aibă, totdeauna articole de format fix, lungimea maximi fiind de caractere Fișierele la imprimanta, pot avea articole de format fix sau ** "* •’ înnmmPA maxima fiind de do caractere Primul caracter al articolelor n^eivlo тЙ^ит'Ха": deși nu o,te tipărit trebuie sA fie inclus in cadrul arcelor Clauza LABEL trebuie să figureze în oricare rul ric? clauiURECORDlNG, poate fi omisă dacă formatul « f?^t^obirvația variabil în ceea ce privește sintaxa ^J^jert hn că indicatorul FD trebuie scris din coloana , iar numtlt Clauza LABEL trebuie să figureze în f oricare j variabil în ceea ce jișier}, din coloana — Programarea sistemului de calcul Rubrici de descriere a datelor Formatul general, simplificat, al rubricilor de descriere a datelor este următorul: număr-nivel nume-dată FILLER | PICTURE) TC ' | PIC IIS ?ablon f; VALUE IS literal] Prin intermediul rubricilor de descriere, datelor li se precizează următoarele caracteristici: numele, categoria, lungimea, valoarea și structura • Numele unei date reprezintă un cuvînt utilizator prin intermediul căruia data este identificată (referită) în cadrul programului Cuvîntul rezervat FILLER poate fi asociat ca nume unei date care nu este utilizată în prelucrare; aceasta implică faptul că data respectivă nu poate fi referită (citată ca operand în instrucțiunile COBOL) în program • Valoarea unei date este reprezentată de caracterele care îi sînt asociate înaintea începerii execuției programului (valoare inițială), sau la un moment dat, în timpul execuției acestuia în cazul în care valoarea unei date nu se schimbă în timpul prelucrării, data reprezintă o constantă în limbajul COBOL, constantele sînt de două tipuri: literale și constante figurative Literalele pot reprezenta numere întregi sau reale, caz în care se numesc numerice, sau șiruri de caractere, caz în care se numesc nenumerice Literalele numerice pot fi exprimate: — sub forma unor succesiuni de maximum cifre (în care poate apărea și marca zecimală, însă nu după ultima cifră din dreapta), precedate, eventual, de semnul Ц- sau —; — sub forma mantisă E [± exponent, unde mantisa reprezintă o succesiune de maximum cifre, care trebuie să conțină și marca zecimală, iar exponentul reprezintă un număr întreg format din una sau două cifre (valoarea algebrică a unui literal scris în această formă este dată de relația: ± mantisa • { ^xponent) Exemple de literale numerice: ;— ; ;— ; E- ; - E Literalele nenumerice reprezintă succesiuni de maximum caractere (cu excepția caracterului „apostrof"), delimitate prin apostrofuri Exemple de literale nenumerice: VALOAREA CALCULATA ESTE/; '; 'DEMONTAT! ROLA ' v Jeprezintă un tip de aparte constante, specifice limbajului COBOL, identificate prin nume simbolice, ce sînt cuvinte rezervate Valorile desemnate prin constantele figurative sînt date de semnificația cuvintelor rezervate ce le-au fost asociate (tabelul XII ) Observații Dacă o constantă figurativă este asociată unei date, de exemplu prin instrucțiunea de transfer MOVE, lungimea constantei figurative este egală cu lungimea datei Instrucțiunea MOVE SPACE ТО ART-E, din linia sursă a programului XII l» descrie operația de înregistrare, în fiecare locație a zonei asociate datei ART-E, a caracterului „spațiu" Formele de singular și plural ale constantelor figurative sînt echivalente TABELUL XIL Constante figurative Valoare unul sau mai multe caractere „spațiu" unul sau mai multe caractere a căror reprezentare internă este unul sau mai multe caractere „apostrof unul sau mai multe caractere desemnate prin c QUOTE QUOTES Constanta figurativă ZERO ZEROS ZEROES unul sau mai multe caractere a căror reprezentare internă este FF unul sau mai multe caractere „zero" ce • Categoria unei date este definită, în general, de valorile pe care data le poate lua, formatul de reprezentare internă a acestor valori, operațiile la care poate fi supusă data etc în limbajul COBOL, există patru categorii de date: — date numerice, ale căror valori reprezintă succesiuni de caractere numerice; — date alfabetice, ale căror valori reprezintă succesiuni de caractere alfabetice; — date alfanumerice, ale căror valori reprezintă succesiuni de caractere* oarecare (numerice, alfabetice, speciale); — date numerice de editare, ale căror valori reprezintă succesiuni de caractere numerice și speciale (adică numere pregătite pentru tipărire) • Lungimea (dimensiunea) unei date reprezintă numărul caracterelor compun valorile datei • Structura datelor reprezintă modul de asociere și aranjare a datelor funcție de semnificația lor A în limbajul COBOL, din punctul de vedere al structurii, datele se împart două tipuri: date grupate și date elementare Datele grupate se compun din oare tare la rîndul lor pot fi alcătuite din alte date ș a m d In cadrul unei date' grupate, datele care o compun pot fi dispuse pe mai multe nivele Datele situate la un anumit nivel, care nu mai conțin alte date, se numesc date *fnenlar programelor COBOL, punerea în evidență a structurii datel°c se realizează prm intermediul numerelor de nivel, care pot lua vaJ?” Ajj™ar celelalte SX? Й“ѵ!- , care general, o structură de date eterogenă, adică datele care m in alte date, care neapărat dc aceeași categorie Un articol poate reprezenta o structură de date internă, existentă în memoria centrală, sau o structură de date externă, existentă pe un suport extern (cartelă, bandă magnetică etc ) și care reprezintă deci o înregistrare logică a unui fișier în cadrul unui articol, datelor situate pe același nivel li se asociază același număr de nivel Schematic articolul ART-I ce aparține fișierului FIȘIER-INTRARE din programul XIl l, poate fi reprezentat ca în figura XII Dacă însă se consideră că data ADRESA-I conține trei date — ORAS-I, STRADA-I și NR-I — atunci, structura articolului poate fi reprezentată ca în figura XII iar descrierea acestuia s-ar putea face astfel: ART-I CLASA-I PIC X( ) NUME-I PIC A( ) ADRESA-I ORAȘ-I PIC X( ) STRADA-I PIC X( ) NR-I PIC ( ) MEDIE-I PIC V Analizînd descrierea articolului ART-I, prezentată anterior, și cea din programul XIl l, cît și a articolului SFIRSIT-FISIER, se pot face următoarele observații: — în descrierea articolului ART-I din programul XIl l există o singură dată grupată ART-I, celelalte fiind date elementare; — în descrierea articolului ART-I, prezentată anterior, datele grupate sînt ART-I și ADRESA-I; — rubricile de descriere asociate diferitelor date au fost scrise decalat spre dreapta, în funcție de numerele de nivel cu care încep; acest mod de scriere nu este impus de o regulă a limbajului, ci de practică, pentru a fi puse în evidență, și în acest mod, structura și ierarhia datelor; nu este obligatoriu ca numerele de nivel sa crească numai cu o unitate de la un nivel al altul al structurii; este posibil ca un articol să nu conțină date subordonate Nivel Nivel Ni Vet CLASA - J ART-I CLASA-I NUME-I ADRESA- MEPIE-I Fig ХП ART- NUME- ADRESA-I MEOIE-l ORAS-I STRADA-I " NR-l Fig XII ОКчсгѵ atu I ,r e,cn'cntnre cc nu nVarti» articolelor pot fi descrise in s«ți, n a WCRKJNG- MOKAbt in rubrici cu numere de nivel , ca în exemplul următor: SUMA PIC ( ) SF PIC Rubricile cu numere de nivel trebuie să preceadă rubricile de descriere a articolelor în general, indentificatorii asociați datelor unui program sînt distincți în cazul in taie in program sint descrise două sau mai multe articole ale căror date au aceiași identificatori, refe rirea acestor date necesită calificarea De exemplu, considerînd pentru articolele ART-I și ART E următoarele descrieri: ART-I CLASA NUME ADRESA MEDIE ART-E CLASA NUME ADRESA MEDIE PIC X( ) PIC A( ) PIC X ( ) PIC V PIC X( ) PIC A( ) PIC X( ) PIC V transferul valorii CLASA din articolul ART-I în zona asociată dalei CLASA din articolul ART-E, poate fi descris astfel: MOVE CLASA OF ART-I ТО CLASA IN ART-E | Calificarea datelor este realizată cu ajutorul cuvintelor rezervate IN și OF, care asociază fiecărei date o dată grupată unic definită (căreia aparține data calificată), numită edificator Calificatorul de cel mai înalt nivel este fișierul; deci, în program pot fi descrise două sau mai multe fișiere care au aceiași identificatori pentru articole (dacă un fișier are mai multe tipuri de articole, acestea trebuie însă să aibă identificatori distincți): rezultă că ni mele fișierelor trebuie să fie unice Articolele descrise în alte secțiuni decît secțiunea FILE, neputînd Я calificate, trebuie să li se asocieze identificatori distincți; datele cc compun aceste articole pot avea aceiași identificatori, calificarea făcîndu-se prin numele unor date în a căror componență intră sau prin numele articolelor • Clauza PICTURE precizează, prin intermediul șablonului, informații referitoare la categoria și lungimea unei date elementare Șablonul reprezintă o succesiune de maximum de simboluri, cu semnificații specii le' aceste simboluri definesc, în general, categoria datei, iar numărul lor, lungimea datei Principalele simboluri care pot fi utilizate în șabloane sînt prezentate în tabelul XII în legătură cu utilizarea simbolurilor în cadrul șabloanelor pot ii făcute următoarele observații: a) Marca zecimală virtuală nu este reprezentată în memorie, dar este luată în considerare de compilator la generarea codurilor ce corespund datei descrise; ea nu poate fi ultimul simbol al șablonului, b) în cazul unei date numerice de editare, în locațiile zonei de memorie asociată datei, ce corespund pozițiilor simbolurilor * și + din șablon, vor fi inserate în momentul atribuirii de valori datei, caracterele • și • TABELUL ХП З Principalele simboluri permise în șabloanele dc descriere Categoria datei Simbolul Semnificația indică poziția unei cifre numerică V indică poziția mărcii zecimale virtuale o indică faptul că data reprezintă un număr cu semn alfabetică A indică poziția unui caracter alfabetic alfanumerică indică poziția unui caracter alfanumeric numerică de • indică poziția unei cifre editare • indică poziția mărcii zecimale reale + indică poziția în care va fi inserat caracterul —, dacă valoarea datei este un număr pozitiv, sau caracterul —, dacă valoarea —— datei este un număr negativ • • c) Simbolurile S și + pot figura numai o singură dată în șablon, și anume, la începutul acestuia d) Numărul maxim de simboluri care pot apărea în șablon este e) în cazul în care un simbol se repetă succesiv într-un șablon, de un număr de ori, scrierea poate fi simplificată scriind simbolul o singură dată, iar imediat după el, numărul de repetări, între paranteze De exemplu, descrierile următoare sînt echivalente: CLASA-I PIC XXXXX CLASA-I PIC X( ) • Clauza VALUE precizează, prin intermediul literalului, valoarea inițială a unei date elementare sau grupate, descrisă în secțiunea WORKING-STORAGE Tipul literalului trebuie să coincidă cu tipul datei Astfel, în cazul datelor elementare numerice, literalul trebuie să fie numeric sau constanta figurativă ZERO; în cazul datelor elementare nenumerice și a celor grupate, literalul trebuie să fie nenumeric sau una din constantele figurative SPACES, HIGH-VALUE, LOW-VALUE, QUOTE, ALL De asemenea, lungimea literalului nu trebuie să depășească lungimea datei Dacă lungimea literalului este mai mică decît lungimea datei, înregistrarea caracterelor ce compun valoarea literalului în zona-memorie asociată datei se realizează astfel: — în cazul datelor elementare numerice, caracterele sînt înregistrate în zonă de la marca zecimală spre stînga și, eventual, spre dreapta, cu completare de zerouri; — în cazul datelor elementare nenumerice sau a datelor grupate, caracterele sînt înregistrate în zonă de la stînga spre dreapta, cu completare de spații Observație Dacă literalul citat în clauza VALUE este o constantă figurativă, în fiecare locație a zonei ste înregistrat caracterul desemnat do constanta figurativă în tabelul XII sînt prezentate cîteva descrieri de inițializări de date și imaginea zonelor asociate acestora, TABELUL XII Exemple de inițializări de dale Descrierea dalei DATA- PIC X( ) VALUE 'A IC' DATA- PIC A( ) VALUE ALL 'X' DATA- PIC ( ) VALUE DATA- PIC V VALUE DATA- PIC S V VALUE DATA- PIC X( ) VALUE 'AB' Imaginea zonei, după inițializare i А I ♦ l i C i X| Xj xt i Q i Q i i , І i t I , , , Л D i I I în ceea ce privește sintaxa rubricilor de descriere a datelor sc pot face următoarele observații: — numărul de nivel trebuie să fie urmat de numele datei, iar acesta, de clauzele care precizează caracteristicile datei (ordinea în care sînt citate clauzele poate fi oarecare); — numerele de nivel trebuie scrise din coloana a formularului, iar numele articolelor, din coloana ; — numerele de nivel cu valori cuprinse între și pot fi scrise înce-pînd din coloana , iar numele datelor trebuie să urmeze după cel puțin un spațiu (în intervalul cuprins între coloanele și ) d PROCEDURE D VISION (diviziunea de prelucrare) Grupează instrucțiunile care descriu algoritmul prelucrării Unitățile structurale ale acestei diviziuni sînt secțiunile, paragrafele și frazele Spre deosebire de secțiunile celorlalte diviziuni, care sînt identificate prin cuvinte rezervate și grupează informații prestabilite, numele și conținutul secțiunilor diviziunii PROCEDURE sînt stabilite de utilizator Utilizarea secțiunilor în cadrul acestei diviziuni este, în general, opțională, fiind impusă numai de anumite situații: segmentarea programelor, sortarea fișierelor etc Paragrafele sînt identificate prin cuvinte utilizator, numite nume de paragraf, și conțin una sau mai multe fraze O frază poate conține una sau mai multe instrucțiuni COBOL (unite prin separatorii puncl-virgulă, virgulă, spațiu sau cuvîntul rezervat THEh ) și se termină printr-un punct urmat de spațiu O instrucțiune COBOL reprezintă un ansamblu de cuvinte (cuvinte rezervate și cuvinte utilizator) și, uneori, simboluri Primul cuvînt este un cuvînt rezervat, numit verb COBOL, care indică operația (operațiile) ce va fi efec*; tuată prin execuția instrucțiunii Celelalte cuvinte reprezintă operanzi și cuvinte de legătură Operanzii sînt cuvinte utilizator care desemnează, în general, datele implicate în operația descrisă de instrucțiune Cuvintele de legătură sînt cuvinte rezervate (cheie sau opționale) al căror rol este de a defini acțiuni suplimentare impuse de operația indicată de instrucțiune In cazul anumitor instrucțiuni, operanzii și cuvintele de legătură pot forma clauze De asemenea, anumite instrucțiuni pot include alte instrucțiuni De exemplu, instrucțiunea READ din linia sursă a XII l descrie operația de citire a unui articol din fișierul • Verbul COBOL este cuvîntul rezervat READ Cuvîntul utilizator Llțir-K- IN IRAK К indică operandul instrucțiunii, iar clauza Al END precizează (aptul că, dacă prin citire este detectat sfîr^itul fișierului, datei SFÎRȘIT-FIȘIER i xS(! atribuie (prin instrucțiunea MOVE) valoarea DA Formatul general, simplificat, al diviziunii PROCEDURE este următorul: PROCEDURE DIVISION \\nume-sec(iune SECTION ] {nume-paragraf {frată } } } Regulile de sintaxă referitoare la unitățile structurale ale diviziunii PROCEDURE sînt următoarele: — numele de secțiuni și numele de paragrafe, numite nume de prelucrare, sînt cuvinte utilizator care se formează după regulile cunoscute; spre deosebire de celelalte cuvinte utilizator, ele pot fi formate și numai din cifre; — diviziunea PROCEDURE trebuie să înceapă obligatoriu printr-un nume de secțiune sau de paragraf; — numele secțiunilor și paragrafelor se scriu pe formular din coloana , iar frazele în continuarea numelor paragrafelor, sau pe linia următoare însă cel puțin din coloana In diviziunea PROCEDURE a programului XII l apar nouă instrucțiuni: OPEN, CLOSE, READ, WRITE, DISPLAY, IF, PERFORM, MOVE și STOP Formatele generale ale acestor instrucțiuni și operațiile pe care Ie descriu sînt prezentate în continuare ’ Instrucțiunea OPEN Descrie operația de deschidere a unuia sau a mai multor fișiere Format general: OPEN INPUT OUTPUT nume-fișier Opțiunile INPUT și OUTPUT indică tipul prelucrării fișierului: consultare (citire) și, respectiv, creare (scriere) Citirea sau scrierea unui articcl din/în fișier impune ca acesta să fi fost, în prealabil, deschis * Instrucțiunea CLOSE Descrie operația de închidere a unuia sau a mai multor fișiere Format general CLOSE {nume-fișier} înainte de sfîrșitul execuției programului, orice fișier care a fost deschis trebuie închis Instrucțiunea READ Descrie operația de citire a unui articol dintr-un fișier secvențial Format general: READ nume-fișier AT END instrucțiune După citire, articolul este disponibil pentru prelucrare, în zona-articol asociată fișierului La fiecare execuție a acestei instrucțiuni se verifică dacă înregistrarea citită reprezintă marca de sfîrșit de fișier (în cazul fișierelor pe cartele aceasta reprezintă o cartelă care conține, în primele patru coloane, caracterele EOF), In caz afirmativ este executată instrucțiunea (sau secvența de instrucțiuni) precizată prin clauza AT END ; în caz contrar, execuția programului continuă cu instrucțiunea ce urmează lui READ (de după punct) Observație Pentru obținerea unui program corect structurat, fiecărui fișier secvențial consultat Se poate asocia un indicator căruia, înainte de efectuarea primei citiri i se atribuie o valoare v iar in momentul în care este detectată marca de'sfirșit dc fișier, valoarea v,; citirea trebuie urmată de testarea valorii indicatorului, lucru care permite separarea (punerea in evidență) secvențelor ce corespund detectării sau nu a mărcii de sfirșit de fișier (fig XII ) în cazul programului XIl l, indicatorul asociat fișierului FIȘIER-IN TRARE este SFÎRȘIT-FIȘIER, căruia i s-a atribuit, prin clauzaVALUE, valoarea inițială NU La detectarea mărcii de sfîrșit de fișier, acestui indicator i s-a atribuit, prin instrucțiunea MOVE, valoarea DA Instrucțiunea WRITE Descrie operația de scriere a unui articol intr-un fișier în cazul fișierelor la imprimantă, formatul general al acestei instrucțiuni este: WRITE пите-articol AFTER ADVANCING LINES Clauza ADVACING precizează condițiile în care va avea Ioc scrierea articolului (rîndului) și anume după avansarea hîrtiei cu un număr de rînduri (interlinii) egal cu valoarea ІиіЧп/rcg; întreg poate lua valori cuprinse între și , a căror semnificație este: — hîrtia avansează pînă la începutul unei noi pagini; — hîrtia avansează cu un rînd; — hîrtia avansează cu două rînduri ș a m d Scrierea rîndului trebuie să fie precedată de formarea imaginii acestuia, în zona-articol asociată fișierului Instrucțiunea DISPLAY Descrie, în general, operația de tipărire la imprimantă a unui rînd ce conține valorile uneia sau mâi multor date și/sau literale; lungimea maximă a rîndului este de caractere Format general: DISPLAY nume-dată- literal- nume-dată- literal- Fig XII Exemplu Considerînd că valorile a două date JPATA- și DATA- sînt și, respectiv, , prin execuția instrucțiunilor: DISPLAY 'VALOAREA DATEI ESTE = 'DATA- DISPLAY DATA- DATA- DISPLAY DATA- ' 'DATA- la imprimantă sînt tipărite trei rînduri, cu următorul conținut: VALOAREA DATEI ESTE = Instrucțiunea MOVE Descrie operația de transfer a valorii unei date, numită dată emițătoare, în zona asociată altei date, numită dată receptoare Format general: MOVE nume-dat ă- literal ТО nume-dată- Considerînd că data emițătoare (nume-dată- sau literal) și data receptoare (nume-dată- ) sînt de același tip înregistrarea caracterelor ce compun valoarea datei emițătoare în zona asociată datei receptoare se realizează astfel: — în cazul datelor numerice, caracterele sînt înregistrate în zonă de la marca zecimală spre stînga și, eventual spre dreapta, cu completare de zerouri sau trunchiere de caractere; — în cazul datelor nenumerice sau grupate, caracterele sînt înregistrate în zonă de la stînga spre dreapta, cu completare de spații sau trunchiere de caractere în tabelul XII sînt prezentate cîteva operații de transfer TABELUL XII Data emițătoare Data receptoare % Șablon Valoare Șablon Valoare V V V XXX XXX xxxx A В с A В с A Ів с D î xxxxx xxxxx ° | IAI Lil A в c A В Instrucțiunea IF, Realizează testarea unei condiții, numită în limbajul COBOL și test Format general: IF condiție THEN instructiune- ELSE instrucțiune în general, condiția reprezintă un test de relație, prin care se verifică lelația ■ „mai mie , „egal sau „mai mare dintre doi termeni, l'ermcnii pot fi ambii date de același tip, sau unul dintre termeni o dată, iar celălalt, un literal (ce corespunde ca tip datei) Operatorul de relație, indicat între cei doi termeni, poate fi simbolul ; pe formular,’operatorul de relație se scrie precedat și urmat de cel puțin un spațiu Considerînd secvențele din figura XII , ele pot fi codificate în limbajul COBOL astfel: IF A = В THEN MOVE А ТО C ELSE MOVE В ТО С IF А > В THEN MOVE А ТО С MOVE У ТО X Analizînd aceste exemple, se poate deduce principiul de execuție al instrucțiunii IF: — dacă valoarea logică a condiției testate este „adevărat", se execută instrucțiunea sau secvența de instrucțiuni indicată prin instrucțiune-!; — dacă valoarea logică a condiției testate este „fals", se execută instrucțiunea sau secvența de instrucțiuni indicată prin instrucțiune- Observație Valoarea logică a condiției testate poate fi negată prin operatorul logic NOT De exemplu, prima instrucțiune IF, prezentată anterior, s-ar putea scrie și astfel: IF A NOT = В THEN MOVE В ТО C ELSE MOVE А ТО C Fig XII Instrucțiunea PERFORM UNTIL Descrie un ciclu de tipul celui prezentat în figura XII * Format general: PERFORM nume-j>relucrarc UNTIL соWiție unde: — nume-/>relucrarc indică corpul ciclului, care, în general, este un paragraf ce grupează una sau mai multe instrucțiuni; — condiție reprezintă, în general, un test de relație de tipul celui prezentat la instrucțiunea IF Instrucțiunea PERFORM descrie, în ordine, următoarele operații: — evaluarea condiției; — execuția corpului ciclului atîta timp cît valoarea logică a condiției testate este „fals"; — ieșirea din ciclu (saltul la instrucțiunea ce urmează lui PERFORM), dacă valoarea logică a condiției testate este „adevărat" Instrucțiunea STOP Descrie operația de oprire definitivă sau temporară a execuției programului Format general: StOp!,r,un,) |literal I Oprirea definitivă a execuției programului este indicată prin opțiunea RUN, iar oprirea temporară a execuției, prin opțiunea literal în cazul primei opțiuni, prin execuția instrucțiunii STOP controlul este transferat sistemului de operare care va trata următoarea fază a lucrării în cazul celei de a doua opțiuni, prin execuția instrucțiunii STOP caracterele care compun literalul sînt tipărite la mașina de scris și execuția programului este oprită; reluarea execuției poate fi determinată de intervenția operatorului la pupitrul de comandă în general, oprirea temporară a execuției se face cu scopul de a permite operatorului să efectueze anumite operații (montări sau demontări de volume etc ); valoarea literalului, a'cărui lungime nu trebuie să depășească de caractere, comunică operatorului operațiile pe care trebuie să le efectueze, ca de exemplu: STOP 'MONTAȚI ROLA XY PE UNITATEA MIT Sistematizind noțiunile prezentate în cadrul acestui paragraf se pot face următoarele precizări: ф Limbajul COBOL poate fi definit ca o mulțime (infinită) ale cărei elemente sînt pro grame COBOL • Programele COBOL reprezintă succesiuni de elemente ale vocabularului COBOL, obținute conform gramaticii limbajului ф Elementele care compun vocabularul limbajului — numite cuvinte COBOL — sînt de șase tipuri: — caractere de bază ; — cuvinte rezervate; — cuvinte utilizator; — literale; — numere de nivel; — șabloane in diviziuri • I n program COBOL este împărțit, din punct de vedere sii tuni, paragrafe rubrici (fraze), clauze, instrucțiuni (fig XII ) • Scrierea programelor COBOL se realizează pe un formular, cu o liniatură treciak sa e conține de coloane șt un număr oarecare de linii 'fig XII ), Cele de coloane , t grupate m patru zone distincte, după cum urmează: -zonn de (coloanele l-б), utilizată pentru numerotarea liniilor programului completarea acestei zone este opționala; — zjhj dc continuare (coloana ), care poate conține caracterul „liniuță" (care mărci e • continuarea liniei precedente), caracterul „asterisc" (care indică o linie comentariu) sau caracterul „spațiu" (care indică o linie sursă obișnuită); — zona enunțului COBOL (coloanele — ), destinată scrierii textului sursă propiiu-zis; această zonă se divide în alte țiouă zone numite zona A (coloanele — ) și respectiv, zor a ; (cocoanele — ); coloanele și se numesc marginea A și, respecți/, marginea B; ora de identificare (coloanele э — ), care poate fi utilizată pentru identific* rea programului • Scrierea corectă a programelor COBOL pe formular impune respectarea următoarele: reguli: — Din marginea A se scriu titlurile diviziunilor și secțiunilor, numele paragrafelor, r-Г СІ Г, numărul de nivel din rubricile de descriere a articolelor: — Incepind din marginea В se scriu frazele ce compun paragrafele (în continuarea or paragrafelor sau pe linia următoare), numele fișierelor citate in rubrica FD numele a îi c\l г citate în rubricile cu număr de nivel ; Diviziuni Secțiuni Paragrafe (rubrci I-HPROQRAM-IQ ■ J AUTHOR INSTALLATION IDENTIFICAjTON"| OMPI SECURILE RE-MARK HCONFIGURATION COBOL HENVIRONMENT t IAl-NAMÎ NT IMPUT-OUTPU KA —HJgcjiuni Fig XII Paragrafe о «О Fig XII — Cuvintele unei fraze sau rubrici pot fi separate, opțional, prin unul sau mai multe caractere spațiu, prin caracterele virgulă, punct-vir-gulă, sau prin cuvîntul rezervat THEN; dacă sînt utilizate ca separatori virgula și punct-virgula, acestea trebuie să fie urmate de cel puțin un spațiu; — în scrierea programelor apar situații în care o construcție COBOL nu încape pe o singură linie, fiind necesară continuarea ei pe linia următoare; acest lucru se realizează ținînd seama de următoarele reguli de despărțire a cuvintelor; — despărțirea unui cuvînt COBOL (altul decît un literal nenumeric) este marcată printr-o liniuță în coloana a liniei următoare, scrierea conti-nuînd, pe această linie-, din marginea B(fig XII a); — despărțirea unui literal nenumeric necesită înregistrarea unei liniuțe în coloana și a unui apostrof în coloana a liniei următoare, scrierea continuînd, în această linie, imediat după apostrof (fig XII ) Observație *?€ In mod obișnuit se evită despărțirea cuvintelor prin scrierea acestora în întregime pe linia următoare, fără marcarea liniuței de continuare în coloana (fig XII c) EXPRESII ȘI INSTRUCȚIUNI ARITMETICE în limbajul COBOL descrierea operațiilor aritmetice se realizează prin cinci instrucțiuni: ADD, COMPUTE, DIVIDE, MULTIPLY și SUBSTRACT Operanzii citați în aceste instrucțiuni pot reprezenta date numerice elementare sau literale numerice (incluzîndu-se aici și constanta figurativă ZERO) în cazul anumitor formate ale instrucțiunilor aritmetice, datele carora li se atribuie valorile rezultatelor pot fi și numerice de editare Valorile operanzilor reprezintă numere întregi și reale, formate din maximum cifre în cazul operanzilor cu zecimale, la generarea instrucțiunilor în limbaj-mașină ce corespund operațiilor descrise de instrucțiunile aritmetice, compilatorul asigură alinierea valorilor acestora la marca zecimală virtuală De asemenea,- dacă numărul operanzilor citați într-o instrucțiune aritmetică este mai mare decît i" at°\" rczrrvă automat zonc-memorie pentru memorarea valorilor rezultatelor intermediare a Clauzele rounded și size error în formatele generale ale instrucțiunilor antmetice există două clauze opționale: ROUNDED ri SIZE ERROR • ( , ROUNDED indică rotunjirea valorii rezultatului obținut în urma efectuării unei operații aritmetice în absența clauzei ROUNDED dacă numărul de zecimale ale valorii rezultatului este mai mare decît numărul de locații rezervat părții zecimale a acestuia, arc loc o trunchiere (fi" XII a) în prezența clauzei ROUNDED, ultima zecimală a valorii rezultatului (zecimală care poate fi înregistrată în zona asociată acestuia) e te majorată cu o unitate, dacă zecimala care îi urmează este mai mare sau egală cu (fig XII b) э • Clauza SIZE ERROR indică testarea depășirilor de capacitate Format general: ON SIZE ERROR instrucțiune O depășire de capacitate apare în cazul în care lungimea zonei-memo-rie în care trebuie memorată valoarea rezultatului final al unei operații aritmetice nu permite înregistrarea acestei valori (de asemenea, este asimilată unei depășiri de capacitate și o împărțire la zero) Depășirile de capacitate pot fi semnalate, în cursul execuției programelor COBOL, numai cînd clauza SIZE ERROR figurează în instrucțiunile aritmetice; dacă această clauză lipsește și apar depășiri, valorile rezultatelor finale sînt înregistrate trunchiat, în zonele care le sînt asociate în figura XII este prezentat principiul de execuție a unei instrucțiuni aritmetice, iar figura XII , patru operații de adunare în cazul operațiilor din figurile XII a și XII b — rezultatele obținute sînt corecte deoarece, prin memorarea valorilor acestora, se pierde o cifră nesemnificativă — zero — și respectiv, ultima cifră a părții zecimale; Operand Operand Rezultat a Trunchiere Fig XII b Rotunjire Memorarea valorii rezultatului și execuția irHtrucțru nu ce urmeazâ instrucția-nu aritmetice NU Mffinuiarea valorii rezultatului și execuția instrucțiunii te urmea a instrucția nu aritmetice Execuț u instrucțiunii sau a instrucțiunii* citate n clauza SIZE ERROR Fig XII l Operand Operand Rezultat b Rezultat corect Fig XII c Depășire d Trunchiere a Rezultat corect în cazul operațiilor din figurile XII c și XII d este semnalată o depășire, sau valoarea rezultatului este trunchiată, după cum clauza SIZE ERR OR figurează sau nu în instrucțiunea aritmetică Observație > Inserarea în program a unei secvențe (proceduri) pentru tratarea depășirilor necesită utilizarea unui indicator, căruia trebuie să i se atribuie o valoare vL, înainte de efectuarea operației aritmetice, și o valoare v , dacă este semnalată o depășire Prin testarea valorii acestui indicator, care se realizează printr-o instrucțiune IF ce urmează instrucțiunii aritmetice, pot li separate secvențele de instrucțiuni ce vor fi executate dacă s-a produs sau nu depășire (fig XII ) b Expresii aritmetice în limbajul COBOL expresiile aritmetice se for- ' mează din operanzi (termeni), operatori și, eventual, paranteze Operanzii reprezintă date elementare numerice sau literale numerice Operatorii care indică operațiile ce trebuie efectuate asupra operanzilor, sînt următorii: + pentru operația de adunare; — pentru operația de scădere; * pentru operația de înmulțire; / pentru operația de împărțire; ** pentru operația de ridicare la putere ț INDICATOR | Fig ХП în* absența parantezelor, ordinea executării operațiilor unei expresii aritmetice este următoarea: — ridicarea la putere — înmulțirea și împărțirea — adunarea și scăderea Prezența parantezelor poate modifica această ordine ; în acest caz evaluarea expresiei începe cu parantezele interioare Scrierea expresiilor aritmetice impune respectarea următoarelor reguli: — o expresie aritmetică nu poate începe decît cu simbolurile (, — sau cu un operand și nu se poate termina decît cu simbolul) sau un operand; — operatorii trebuie să fie precedați și armați de cel puțin un spațiu; — o paranteză deschisă nu poate ti urmată de spațiu, dar trebuie precedată de cel puțin un spațiu; — -o paranteză închisă nu poate fi precedată de spațiu, dar trebuie urmată de cel puțin un spațiu în figura XII este prezentat modul de scriere a expresiilor: SUMA CANTITATE * PREȚ I c Instrucțiuni aritmetice Instrucțiunea COMPUTE descrie operația prin care unei daje (nume-dată- ) i se atribuie valoarea altei date ^vame~daiă- sau literal) sau valoarea unei expresii aritmetice (expresie-aritmctica) Format general: COMPUTE nuwie-dată- ROUNDED = de nume-dată- I literal I expresie-aritmetica j [ON SIZE ERROR instrucțiune} Data nume-dat ă- poate fi numerică sau numerică editare Numai în primul caz data numc-dată- g>ate apărea și ca operand într-o expresie aritmetică e exemplu, considerînd descrierea unui articol: OPERANZI REZULTATE A PIC S ( ) В PIC S ( ) R PIC S ( ) R PIC > ( ) — Programarea sistemului de calcul Hg xii H instrucțiunile: COMPUTE R = A + В COMPUTE R = A - В sînt corecte, pe cînd instrucțiunea COMPUTE R = R + A este incorectă Exemplu Modul de evaluare a expresiilor aritmetice în limbajul COBOL este ilustrat de programul XII , care determină valoarea polinomului: P(X) = A-X + B-X -C-X + D pentru o anumită valoare a lui X și imprimă această valoare Valoarea lui X și valorile coeficienților А, В, C și D sînt reprezentate pe cartele astfel: * — în coloanele — , valoarea lui X; — în coloanele — , valoarea coeficientului A, formată dintr-o parte întreagă ( cifre) și o parte zecimală ( cifre); — în coloanele — , valoarea coeficientului B; — în coloanele — , valoarea coeficientului C, formată dintr-o parte întreagă ( cifre) și o parte zecimală ( cifre); — în coloanele — , valoarea coeficientului D * Valorile acestor date reprezintă numere cu semn; în plus, valorile datelor A și C au și parte zecimală în legătură, cu modul de reprezentare a valorilor datelor pe cartele se fac următoarele observații: — valorile datelor numerice trebuie aliniate la dreapta în cadrul cîmpu-rilor ce le sînt rezervate, punîndu-li-se în evidență și zerourile nesemnificative; ID DIVISION PROGRAM-ІЙ CALCUL - ENVIRONHENT- DI VIS ION CONFIGURATION SECTION, DATA DIVISION W RKING-ST RA E SECTIOt Ol DATE-INTRARE ’ X PIC S • A PIC S V В PIC ’' C PIC S V D PIC S Ol VALOARE PIC'+ ( ) PROCEDURE DIVISION CITEȘTE ACCEPT DATE-INTRARE CALCULEAZĂ , compute Valoare и а ж x жж'-з-f i nume-dală-n\ [ROUNDEDJ; [ON S ZE ERROR instrucțiune ] Format general : prelu- ADD nume dată- literal nume-dată- literal- GIVING nume-dată [ROUNDED] [;ON S ZE ERROR insb иф'ьш ) Fig XII n Format general : ADd! C RRESP NDINGLnme-rfa/a- ТО nume-datâ- țCORR ! [ROUNDED] [ ;ON SIZE ERROR instrucțiune ] Principiul de execuție este următorul: j ~ — format : la valoarea fiecărei date nume-dată-m, nume-data-n se adună valorile datelor nume-dată- j literal- , nume-dată- țliteral- , — format : valorile datelor nume-dată- fliteral- , nume-dată- fii г-ral- sînt însumate, iar valoarea sumei este atribuită datei nume-dată-n (care poate fi definită și ca dată numerică de editare); — format : valorile datelor corespondente ce aparțin datelor grupate nume-daiă- și nume-dată- sînt adunate, iar valorile sumelor obținute sînt atribuite datelor corespondente ce aparțin datei grupate nume-daiă- Observație Se numesc date corespondente, datele elementare care aparțin unor date grupate, au același nume și sînt de aceeași categorie în exemplul din figura XII datele corespondente sînt А,В și E Considerînd datele din aceasta figură, în urma execuției instrucțiunii: ADD CORR ART- ТО ART- valorile datelor А,В și E ce aparțin articolului ART- vor fi , și, respectiv, Instrucțiunea SUBTRACT descrie operația de scădere Format general : * -ART-i A PIC ( ) VALUL В’ PIC- ( ) VAIJJE C PIC PIC X( ) E PIC ( ) VALUR ’Ol ; ART- - A ’ PIC ( Г VAL UE $♦* В PIC ( ) VAILUh ' - C PIC X(lfi) • D PICr?( )V £ PIC' (Z) VAL UK Fig ХП SUBTRACT nume-dată- L literal- [ROUNDED] [;ON SIZE ERROR visfrur/tune ] nume-dată- I literal- I FR M nume-dată-n Format general : SUBTRACT nume-dată- Г ( nume-dată- [ literal- GI VIN G nume-dată-n [ROUNDED] [; N SIZE ERROR instrucțiune} literal- FR M nume-dată-m literal-m Format genei al : SUBTRACT CORRESPONDINGI , I ^c^dcitu * F ROM ним?,* dcttd- [ROUNDED] [ ;ON SIZE ERROR instrucțiune ] Principiul de execuție este următorul: — format : valorile datelor nume-dată- țliteral- , nume-dată- țliteral- sînt însumate, suma obținută este scăzută din valoarea datei nume-dată-n, iar valoarea rezultatului este atribuită datei nume-dată-n; — formai : valorile datelor nume-dată- /literal, nume-dată- țliteral- sînt însumate, suma obținută este scăzută din valoarea datei nume-dată-m liieial-m, iar valoarea rezultatului este atribuită datei nume-dată-n (ca re poat fi definită și ca dată numerică de editare); — format : valorile datelor corespondente ce aparțin datei grupate nume-dată- sînt scăzute din valorile datelor corespondente ce aparțin date, grupate nume-dată- , iar valorile rezultatelor sînt atribuite datelor corespoг -dente ce aparțin datei grupate nume-dată- Instrucțiunea DIVIDE descrie operația de împărțire Format general : nniутл!? nume-dată- іѵтл ,v o DIvIDEț , > INTO nume-data- ( literal-! J ROUNDED] [ ;ON SIZE ERROR instrucțiune ' Format general : * « ППТТПР ( nume-dată- txrr„ f nume-dată- „T,„KT„ DIMDE , , > INTO f ; j , ? GIVING mime-data-j l hteral- j ( hteral- j REMAINDER nume-dată- ] [ROUNDED] [;ON SIZE ERROR Format general : DIVIDE nume-dată- literal- B\ {nume-dată- literal- GIVING uume-d^ă [REMAINDER nume-dată- ] ROUNDED]; [ON SIZE ERROR Wrw/wJ Principiul de execuție este următorul: — format : valoarea datei nume-dată- este împărțită la valoarea cateî nume-dată- țliteral- , iar valoarea citului este atribuită datei nu ne — format : valoarea datei numi dată- țliteral- este împărțită la valoarea datei nume-dată- țliteral- , valoarea citului este atribuită datei ньмп-dată- , iar valoarea restului, datei nume-dată- — format ; valoarea datei nume-dată- țliter^l este împărțită la valoarea datei nume-dală- țliteral- t valoarea citului este atribuită datei nu» -dată- , iar valoarea restului, datei nume-dată- Observafii • Datele ȘÎ нате-( а Л- pot fi definite cu date numerice ed ta G To DEPENDING, PERFORM TIMES și PERFORM UNTIL STRUCTURI SECVENȚIALE Aceste structuri se descriu prin intermediul instrucțiunii PERFORM, al cărei format general este următorul: PERFORM nuwe-pTcluo'CD'e-l [THRU пшпб-ргеІис'Гсіуе- \ Utilizarea instrucțiunii PERFORM impune gruparea instrucțiunilor programului în paragrafe și, eventual, a paragrafelor în secțiuni și identificarea acestora prin etichete (nume de prelucrare), în vederea referirii Instrucțiunea PERFORM descrie, în ordine, următoarele operații: - saltul la o secvență de prelucrare, care reprezintă un singur paragraf (secțiune) sau un grup de paragrafe (secțiuni) succesive; — execuția acestei secvențe; FORMSaRU (геѴСПІгеа) la instructiunea ce urmează instrucțiunii PER-p *n ^га XIIL fste Prezentat principiul de execuție al instrucțiunii PERFORM, in cazul in care secvența apelata reprezintă o succesiune de paragrafe (primul fiind CALCUL, iar ultimul TIPĂRIRE) Г F к F () К М С н I і, и L Г Н R и Г Р А К К h * PERE URM p HiRU Р-ЕлІТ •♦CALCUL ♦ A UJ VALlJARk і U * SUriA ADD SUriA IU i’UlAI • fRANSbER I 'i U V t\ Ъ F A C ti S А К Г “• L HOME LUD IU COD-‘h rtOVE SUMA ЬШ'іА-Е* TIPĂRIRE* UKlTF ART-E Al-ТЕК ПОМЕ О fO GUMA* b Fig XIII Observații > ADD A TCJ S NOME IU S-E IF N »W»W lWra T — M»W w - • ••w V A L A R E A p R £ и c T E Mp ГЭ-* «MM c D c E N T R A L A V A L A R E • X X » X X X X X X X X X X X X X % | ITLU-RAPORT ^TITLURI-COLOANE Jrînd Fig ХШ Fig ХПІ cele mai frecvente aie instrucțiunii PERFORM: gruparea instrucțiunilor m paragrafe pentru a pune în evidență componentele funcționale ale programului și reutilizarea unor părți ale acestuia; reutilizarea constă în: scrierea o singură dată a unei secvențe de instrucțiuni care trebuie să apară de mai multe ori in program; plasarea acestei secvențe intr-un loc din program, încît să ii'i afecteze ordinea execuției instrucțiunilor: apelarea acestei secvențe pentru execuție, prin instrucțiunea PERFORM, din locurile în care secvența ar fi trebuit inserată STRUCTURI ALTERNATIVE Aceste structuri se descriu prin intermediul instrucțiunii IF, care specifică ordinea de execuție a instrucțiunilor, în funcție de valoarea logică a unei condiții Format general: IF THEN FTSF - — [NEXT SENTENCEJ unde: — condiție reprezintă o construcție COBOL, numită test, prin intermediul căreia se poate verifica: relația dintre termeni (test de relație), categoria unei date (test de clasă), valoarea algebrică a unei date numerice (test de semn), dacă valoarea unei date aparține unei mulțimi de valori (test de nume de condiție); — instrucțiune- și instrucțiune- reprezintă, fiecare, una sau mai multe instrucțiuni COBOL, care vor fi numite, în continuare, secvențe în general, o instrucțiune IF descrie următoarele operații: — stabilirea valorii logice a condiției („adevărat“ sau „fals"); — execuția secvenței desemnate prin instrucțiime- , dacă valoarea logică a condiției este „adevărat"; — execuția secvenței desemnate prin instrucțiune- , dacă valoarea logică a condiției este „fals"; — saltul la prima instrucțiune a frazei următoare, dacă instrucțiunea conține opțiunea NEXT SENTENCE sau dacă ia sfîrșit execuția secvenței indicate prin instrucțiune- sau instrucțiune- • O generalizare a structurilor de control alternative, descrise prin instrucțiunea IF, este cea prezentată în figura XIII , numită structura de Fig XIII control alternativa generalizată în figura XIIL , I reprezintă o dată numerică, cu valori cuprinse între și n, iar S( (i = , , , n) secvențele de instrucțiuni ce vor fi executate în funcție de valoarea lui I, stabii tă prm test Limbajul COBOL nu dispune de instrucțiuni elementare pentru descrierea acestor tipuri de structuri de control Totuși, ele pot fi simulate utilizînd: a) instrucțiuni IF sau b) instrucțiunea GO ТО DEPENDING Exemplu: Se consideră că o cartelă conține trei date: TIP-EXPRESIE, A și B Valorile datei TIP-EXPRESIE — care pot fi , sau — indică deter> minarea valorii unei expresii aritmetice și anume: - El = a/A-B; dacă TIP-EXPRESIE = ; - E = Â - /В, dacă TIP-EXPRESIE = ; - E = A + B, dacă TIP-EXPRESIE = Se cere să se scrie un program care să determine și să tipărească, prin instrucțiunea DISPLAY, valoarea expresiei indicată de valoarea datei TIP-EXPRESIE O modalitate de rezolvare, utilizînd instrucțiunea IF pentru testarea valorii datei TIP-EXPRESIE, este dată în programul XIII Structura de control descrisă prin cele trei instrucțiuni IF are o singură intrare și o singură ieșire indiferent de valoarea datei TIP-EXPRESIE De exemplu, dacă această valoare este , va fi executat paragraful CALCUL-E după care execuția programului va continua cu execuția instrucțiunii STOP Secvența EROARE a fost prevăzută pentru tratarea situației în care valorile datei TIP-EXPRESIE nu sînt cuprinse între și O altă modalitate de rezolvare constă în utilizarea instrucțiunii GO ТО DEPENDING al cărei format este următorul: GO ТО nume-prelucrare- \ ,nume-prelucrare- ] DEPENDING ON nume-dată unde: — nume-prelucrare- , пите-і)геІисгаге- reprezintă nume de paragrafe sau secțiuni; nume-dată reprezintă o dată numerică, ale cărei valori sînt numere întregi și pozitive Această instrucțiune descrie un salt la prima instrucțiune a paragrafului (secțiunii)^ nume-prelucrare- , nume-prelucrare- > după cum valoarea datei nume-dată este egală cu , ,, Dacă această valoare nu este cuprinsă între și n (unde n reprezintă numărul numelor de prelucrare indicate în instrucțiune), execuția programului continuă cu instrucțiunea ce urmează lui GO Penti u pi evenirca erorilor care pot apărea la execuția programului instrucțiunea GO IO DEPENDING trebuie să fie urmată de o secvență pentru tratai ea situației în caic valorile datei nume-dată nu corespund numărului numelor de prelucrare De asemenea, o altă observație care se poate face este aceea că, în instrucțiunea GO ТО DEPENDING, un nume de prelucrare poate apărea de mai multe ori ID DIVISION* PROGRAM-ID* PIII * ENVIRONMENT DIVISION* CONFIGURATICN SECTION* DATA DIVISION* UORKING-STORAGE SECTION* Ol CARTELA* TIP-EXPRESIE PIC * A PIC S V ♦ В PIC S V * VALORI-EXPRESII El PIC P ( >* * E PIC + ( )* * E PIC P ( )* ^ PROCEDURE DIVISION* START* ACCEPT CARTELA IE TIP-EXPRESIE = THEN •PERFORM CALCUL-E ELSE IF TIP-EXPRESIE’« THEN PERFORM CALCUL-E ELSE IF TIP-EXPRESIE « THEN PERFORM CALCUL-E ELSE PERFORM EROARE* STOP RUN* CALCUL-E * COMPUTE El =•(A - В) ЖЖ N DISPLAY' SUMA PRIMELOR' N ' NUMARE NATURALE: ' SUMA STOP RUN ADUNA ADD NUMĂR ТО SUMA ADD ТО NUMĂR Deoarece corpul ciclului este executat atîta timp cît valoarea logică a condiției testate este „fals" o structură repetitivă condiționată anterior de tipul celei prezentate în figura X IL , a, poate fi descrisă, tot printr-o instrucțiune PERFORAI UNTIL, însă negînd condiția: PERFORM nume-prelucrare- [THRU nume-prelucrare- ] UNTIL NOT (condiție) • Limbajul COBOL nu dispune de instrucțiuni elementare pentru descrierea structurilor de control r'epetitive condiționate posterior, de tipul celei din figura XIII: b Ele pot fi însă simultate prin două instrucțiuni: CORP-CICLU Fig ХШ PERFORM și PERFORM UNTIL De exemplu, schema din figura XIII poate fi transcrisă astfel: START / accept;n PERFORM ADUNA PERFORM' ADUNA UNTIL NUMĂR > N DISPLAY 'SUMA PRIMELOR' N 'NUMERE NATURALE: 'SUMA STOP RI N ADUNA I ADI) NUMĂR ТО SUMA ADD IO NUMĂR, Obrervatle Ciclurile condiționa e anterior sînt preferabile celor condiționate posterior întruch а \ л un control mai riguros a iterațiilor PROBLEME Să se scrie un program pentru rezolvarea ecuației de gradul ? Coeficienții ecuației voi n citiți de pe o cartelă, iar soluțiile vor fi tipărite la imprimantă ?, Să se scrie un program, n două variante, care să determine și să tipărea* ă la imprunairÂ produsul primelor N numere naturale, utihzîrd instrucțiunea PERFORM TIMES și, respectiv, PERFORM UNTIL Sc consideră un fișier pe cartele ale cărui articole conțin date referitoare la situații școlară a elevilor unui liceu, și anume: clasa, nume, media generală anuală Set se scrie un pre ; care să determine și să afișeze Ia imprimantă media generală pentru fiecare cL ri precum și numele elevului cu cea mai mare medie anuală Se va considera că articolele fișierului pe cartele sînt ordonate după valorile datei CLASA Programarea sistemului de calcul CAPITOLUL XIV ELEMENTE COMPLEMENTARE DE DESCRIERE ȘI PRELUCRARE A DATELOR REPREZENTAREA INTERNĂ A DATELOR CLAUZA USAGE în funcție de caracterele ce compun valorile datelor, în limbajul COBOL pot fi definite patru categorii de date: alfabetice, alfanumerice, numerice de calcul și numerice de editare Valorile datelor sînt reprezentate în memoria centrală in zone rezervate de compilator, formatul de reprezentare fiind determinat de categoria datei Lungimea zonelor-memorie rezervate datelor este funcție de lungimea datelor și de formatul de reprezentare internă a valorilor acestora și se exprimă în număr de locații-memorie a Reprezentarea datelor nenumerice Valorile datelor alfabetice, alfanumerice și numerice de editare sînt reprezentate în memorie în cod EBCDIC, adică fiecare caracter este reprezentat într-o locație prin codul intern EBCDIC care îi corespunde Acest format de reprezentare se numește reprezentare în cod EBCDIC (sau reprezentare DISPLAY) Lungimea zonei-memorie asociată unei date alfabetice, alfanumerice sau numerice de editare coincide cu lungimea datei și este stabilită de compilator în funcție de simbolurile care figurează în șablonul de descriere b Reprezentarea datelor numerice Valorile datelor numerice de calcul pot fi reprezentate în următoarele formate: — zecimal-despachetat; — zecimal-împachetat; — cod complementar; — virgulă mobilă simplă precizie; — virgulă mobilă dublă precizie Aceste formate de reprezentare sînt indicate prin opțiunile clauzei USAGE, al cărei format general este următorul: DISPLAY COMPUTATIONAL- CPMP- [USAGE IS] COMPUTAȚIONALI COMP J | COMPUTAȚIONAL- ) COMP- f COMPUTATIONAL- COMP- • Opțiunea DISPLAY este implicită și indică formatul de reprezentare zecimal-despachetat Caracterele (cifrele) ce comțnm valorile datelor sînt înregistrate fiecare într-o locație, prin codul EBCDIC care le corespunde; dacă valorile reprezintă numere cu semn, acesta se indică în șablonul de mațoSdmaI despaărtatPpot ti rJZ ’nt^it^^^ înu^^ Гі în general formatul de reprezentare zecimal-despachefat «te „ti imprimantă etac OT,,C daW°r ”re “ ₽= -rtel,Лаге se‘tiXs”?; • * Opțiunea COMPUTATIONAL- indică formatul de reprezentare Caracterele ce compun valorile datelor sînt înregistrate codificate binar, cîte doua intr-o locație, cu excepția ultimei locații în сагё este înregistrat semnul și un caracter Lungimea zonei-memorie asociată datei se stabilește conform relației: d unde: Іг reprezintă lungimea zonei-memorie, iar ld, lungimea datei Lungimea maximă a zonei-memorie asociată datei este de locati; în această zonă pot fi înregistrate valori cuprinse între — IO + și — (însă numai prin operații de atribuire, prin inițializare intervalul fiind [— І - - , Юи— ]) Formatul de reprezentare zecimal-împachetat poate fi utilizat pentru înregistrarea valorilor numerice pe suporturi magnetice sau pentru valorile care reprezintă operanzi ai instrucțiunilor aritmetice • Opțiunea COMPUTAȚIONAL indică formatul de reprezentare în cod complementar (sau reprezentare binară), caracteristic valorilor ce reprezintă numere întregi pozitive sau negative Valorile datelor «descrise cu această opțiune sînt înregistrate în zone-memorie de lungime lz egale cu: — locații, dacă valoarea datei conține de la pînă la caractere (cifre) ■ — locații, dacă valoarea datei conține de la pînă la caractere, locații, dacă valoarea datei conține de la pînă la caractere Valorile datelor reprezentate în cod complementar sînt cuprinse in intervalul [— " adrese multiplu de , și respectiv, vaîonior "numerice întregi рт suporturi magnetice, pentru n —• ] unde n = , sau , după cum este egal cu , respectiv, locații; compilatorul COBOL atribuie acestor zone Formatul de reprezentare în cod complementar poate fi utilizat P^ntr’-înrppktrarea valorilor numerice întregi pe suporturi magnetice, pntn prezentarea valoHlor indicilor, a valorilor operanzilor instrucțiunianb „Se etc Avantajul acestui format ^reprezentarer oonstS £rn to -u eficientă a suporturilor externe, a memoriei, precum și în creșttrea i mantei programelor Opțiunile COMPUTAȚIONAL-! și « rep«inĂ rMl'Datelor descrise cu opțiunile COMPUTAlIONALri P COMWТАПО-NAL li se rezervi zone-memorle de lungime și reSpect v, la adrese multiplu de Șl, respectiv, în virgulă mobilă pot fi reprezentate valori cuprinse între — , • * și , • IOTe Formatul de reprezentare în virgulă mobilă este utilizat pentru a putea prelucra date numerice a căror lungime depășește caractere Întrucît această formă de reprezentare este standardizată (normalizată', lungimea datelor nu trebuie specificată prin clauza PICTURE Observație Clauza USAGE poate figura atit în rubricile de descriere a datelor elementare cit și în rubricile de descriere a datelor grupate în ultimul caz, ea se aplică tuturor datelor care alcătuiesc datele grupate ALINIEREA DATELOR CLAUZA SYNCHRONIZED Clauzele PICTURE și USAGE definesc complet, în limba iul COBOL, categoria datelor în funcție de informațiile furnizare prin aceste clauze compilatorul COBOL alocă fiecărei date can- titatea de memorie necesară reprezentării valorilor sale De exe ii piu, articolului ART-I, a cărui structură este: ART-I ZI PIC ( ) Z COMP- Z PIC X( ) Z COMP- Z PIC ( ) COMP- Z PIC S ( ) COMP îi va fi asociată o zonă-memorie de lungime locații Structura acestei zone este prezentată în figura XIV l, unde a reprezintă adresa de început a zonei-memorie asociate articolului ART-I (care este întotdeauna o adresă multiplu de ), iar porțiunile hașurate reprezintă locațiile neutilizate datorită alinierii datelor descrise cu opțiunile COMP, COMP- și COMP- — la multiplu de , și, respectiv, ’v, Din cele prezentate rezultă că limbajul COBOL definește, în general, un model de organizare a memoriei pe caractere — în cazul datelor descrise prin opțiunile DISPLAY și COMP- ale clauzei USAGE — și de semicuvinte, cuvinte și dublu-cuvinte — în cazul datelor descrise cu opțiunile COMP, COMP- și, respectiv COMP- Prin intermediul clauzei SYNCHRONIZED, al cărei format general este: f S NCHRONIZED J LEFT I I SYNC | {RIGHTJ acest model de organizare poate fi modificat astfel încit și datelor elementare descrise cu opțiunea DISPLAY și COMP- să li se aloce, funcție de lungime, un anumit număr d cuvinte-memorie Lungimea zonelor asociate acestor date reprezintă deci, cel mai Fig XIV l Dt Fig XIV mic multiplu dc în care pot fi înregistrate caracterele ce compun valorile datelor In cadrul zonelor, valorile datelor sînt înregistrate de la stînga la dreapta (opțiunea LEFT) sau dc la dreapta la stînga (opțiunea RIGHT), existînd posibilitatea râmînerii unor locații ncutilizate în cazul în care lungimea datei nu este multiplu de Exemplu Considerînd următorul articol: ART-E Dl PIC X( ) D PIC ( ) SYNC LEFT ' D PIC ( ) COMP- D PIC X( ) SYNC RIGHT D PIC S ( ) COMP compilatorul îi va rezerva o zonă-memorie de lungime locații Str (\u a acestei zone este prezentată în figura XIV INTRODUCEREA ȘI EXTRAGEREA DE DATE PRIN INSTRUCȚIUNILE ACCEPT ȘI DISPLAY % a Instrucțiunea ACCEPT Prezintă trei formate generale: Format general : ACCEPT nume-data [FROM wwewomcj Format general : ACCEPT nume -dată FROM / CONSOLE [ шеяюяіе Format general : I DATEI DAY | TIME I formatului ; — datei curente sau sub forma zzzaa dacă este utilizată opțiunea D mele două cifre ale anului, ll luna, zz, numărul zilei în cadrul anului) - ■ sau a orei curente ( o - -punzător acestor formate generale, instrucțiunea ACCEPT descrie operația de transfer, în zona corespunzătoare datei пите-dată al: — valorii unei date înregistrate pe o cartelă, citită prin intermediul unității Standarrl de intrare a sistemului - în cazul formatului — caracterelor furnizate de operator la mașina de sens (consolă) in razi sul) forma aallzz, dacă este utilizată opțiunea D-AIE« DAY (e« reprezintă uiți-numărul zilei în cadrul lunii* iai — sub forma htimtnssec, d^efeste utilizată opțiunea TIME (ЛЛ reprezintă ora w»», minutul, secunda» iar cc sutimea de secundă a orei curente) - în cazul formatului Observații în carul formatului lungimea datei nume-dată nu trebuie să depășească de caractere (capacitatea unei cartele) Dacă este utilizată clauza FROM, mnemonicul (care este un identificator COBOL) trebuie asociat, în paragraful SPECIAL-NAMES, cuvîntului rezerva SYS N De exemplu, în programul următor: ENVIRONMENT DIVISION CONFIGURATION SECTION SPECIAL-NAMES SYSIN IS CITITOR-CARTELE DATA DIVIZION WORKING-STORAGE SECTION TIP-PROGRAM PIC X PROCEDURE DIVISION START ACCEPT TIP-PROGRAM FROM CITITOR-CARTELE instrucțiunea ACCEPT descrie operația de transfer, în zona asociată datei TIP-PROGRAM, a unui caracter reprezentat în prima coloană a cartelei în cazul formatului lungimea datei nume-dată nu trebuie să depășească de caractere (capacitatea unui rînd de la mașina de scris) Unitatea periferică implicată în transfer poate fi indicată prin cuvîntul rezervat CONSOLE sau printr-un mnemonic ce este asociat acestui cuvînt în paragraful SPECIAL-NAMES Execuția instrucțiunii ce urmează lui ACCEPT are loc numai după ce operatorul furnizează un număr de caractere egal cu lungimea datei nume-dată în cazul formatului , în funcție de opțiunea utilizată — DATE, DAY sau TIME — pentru înregistrarea datei sau a orei curente, trebuie să se rezerve o zonă-memorie de , sau respectiv, locații, ca în exemplul următor: WORKING-STORAGE SECTION DATA-SI-ORA-CURENTĂ DATA-AALLZZ PIC ( ) DATA-ZZZAA PIC ( ) ORA-CURENTĂ PIC ( ) PROCEDURE DIVISION START ACCEPT DATA-AALLZZ FROM DATE ACCEPT DATA-ZZZAA FROM DAY ACCEPT ORA-CURENTĂ FROM TIME b Instrucțiunea DISPLAY Prezintă trei formate: Format general : DISPLAY nume-dată- literal- {nume-datâ- literal- [UPON mnemonic Format general : DISPLAY nume-dată- / literal- nume-dată- l'teral- UPON CONSOLE Format general : DISPLAY nume-dată- literal- nume-dată- UPOnJ SYSPUNCH literal- ] " | mnemonic Instrucțiunea DISPLAY, corespunzător celor trei formate generale, descrie operațiile de transfer și înregistrare consecutivă a valorilor datelor nume-dată- sau literal- , nume-dată- sau literal- , : — pe suportul unității standard a sistemului — în cazul' formalului ; — la mașina de scris — în cazul formatului ; — pe suportul unității standard de perforare a sistemului — în cazul formatului Prin execuția instrucțiunii, în funcție de formatul utilizat, se realizează: — tipărirea unui rînd la imprimantă; — tipărirea unui rînd la mașina de scris; — perforarea unei cartele Mnemonicul specificat prin clauza UTON trebuie asociat, în paragraful SPECIAL-NAMES, cuvîntului cheie SYSOUT — în cazul utilizăiii formatului , CONSOLE — în cazul utilizării formatului , SYSPUNCH — în cazul utilizării formatului Observație în funcție de formatul utilizat — , sau — suina lungimilor datelor citate în instruo țiunea DISPLAY, nu trebuie să depășească , și, respectiv, caractere Literalele citate în instrucțiunea DISPLAY pot fi numerice, nenuxnericc sau constante figurative (exceptînd constanta figurativă ALL) Dacă în instrucțiune figurează o constantă figurativă, va fi transferat și înregistrat un singur caracter De exemplu, considerînd urrnăb arca secvență de program: WORKING-STORAGE SECTION DATE-EXEMPLU DATA- PIC X( ) VALUE 'ABCDE' DATA- PIC ( ) VALUE PROCEDURE DIVISION START DISPLAY DATA- SPACE SPACE DATA- DISPLAY SPACE DATA- ” DATA- UPON SYSPUNCH execuția celor două instrucțiuni DISPLAY se va realiza: — tipărirea la imprimantă a unui rînd de forma: ABCDE ; — perforarea unei cartele, valoarea datei DATA- fiind reprezentată în coloanele — , iar cea a datei DATA- , în coloanele — Dacă valorile datelor nunic-dată-\t nume-dată- — citate în instrucțiunea DISPLAY — sînt reprezentate în cod complementar, în zccimal-împaclietat, în virgulă mobilă simplă sau dublă precizie transferul și înregistrarea pe suport sînt precedate dc conversia acestora în zeci-mal-despachetat — în cazul datelor descrise cu opțiunea COMP sau COMP- — și in virgulă mobilă format extern — în cazul datelor descrise cu opțiunea COMP- sau COMP- Un număr în virgulă mobilă format extern este dc forma: [±] mantisă ЕЩ exponent unde: mantisa reprezintă o succesiune de cifre (dacă opțiunea este COMP- ) sau cifre (dacă opțiunea este COMP- ), conținînd și marca zecimală, iar exponentul este format clin două cifre PROBLEME Considerînd descrierea, în secțiunea WORKING a următorului ârticol: ARTICOL A PIC S ( ) VALUE - В PIC X( ) VALUE ' C COMP D PIC S ( ) VALUE + E PIC S (U) VALUE - F PIC ( ) VALUE COMP- G COMP- VALUE H COMP- VALUE - I PIC A( ) VALUE 'ABC' J PIC X( ) VALUE 'AB' SYNC RIGHT К PIC ( ) VALUE SYNC LEFT L PIC A( ) VALUE ’ABCDE’ SYNC RIGJ T • / să se indice structura și conținutul zonei-memorie care îi este rezervată de compilator Fie un pachet de cartele, care conține date referitoare la produsele livrate beneficiarilor unei întreprinderi Pe fiecare cartelă sînt înregistrate valorile următoarelor date: codul beneficiarului (Зя-), codul produsului ( n), cantitatea livrată ( n) și valoarea ( л) Ultima cartelă conține, în afara datelor referitoare la beneficiar, caracterul S/ în coloana , mareînd sfîrșitul pachetului de cartele Sa se scrie un program care să editeze, pentru beneficiarul cu codul ,r un raport de forma celui prezentat în figura XIV Raportul va conține codurile produselor livrate beneficiaruljU » și valoarea acestor produse Cartelele vor fi citite prin instrucțiunea ACCEPT, iar codul beneficiarului x și data zilei vor fi furnizate de operator/la mașina de scris Fig XIV CAPITOLUL XV FIȘIERE PE CARTELE VALIDAREA DATELOR FIȘIERE Pis CARTELE Aceste fișiere pot fi prelucrate numai în acces secvențial și pot fi Create sau consultate Un articol este înregistrat în întregimope o singură cartelă, iar aceasta nu poate conține decît un singur articpl Caracterele ce compun articolul sînt înregistrate fiecare într-o coloană x cartelei, lungimea maximă a acestuia fiind de de caractere IndiferenLde lungimea articolelor, compilatorul COBOL asociază fișierelor pe cartele o zonă-articol de lungime locații, în care sînt înregistrate valorile datelor articolelor ce sînt citite sau a celor ce urmează a fi scrise în cazul fișierelor pe cartele care sînt consultate, formatul articolelor este considerat întotdeauna fix; prin citire caracterele, care compun un articol, sînt înregistrate în zona-articol în cod EBCDIC în cazul fișierelor pe cartele care sînt create, formatul articolelor poate fi fix sau variabil; prin scriere (perforare) caracterele care compun un articol sînt înregistrate zpe cartelă în cod Hollerith, Sfîrșitul unui fișier pe cartele care este consultat este indicat de o cartelă specială, numită marcă de fișier, ce conține în primele patru coloane caracterele: EOF ' * • Ж în/ceea ce privește descrierea fișierelor pe cartele, operațiile la care pot fi supuse, precum și exploatarea acestora se pot face precizările prezentate în ^continuare a Asignarea fișierelor pe cartele Identificatorul de exploatare (idex-ul) asociat unui fișier pe cartele (în fraza SELECT) căruia îi este afectată o unitate standard a sistemului (unitatea de intrare sau de perforare) trebuie să fie SYSIN — în cazul în care fișierul este consultat — sau SYSPUNCH — în cazul în care fișierul este creat Pentru un fișier pe cartele al cărui idex este SYSIN, articolele care îl compun trebuie să urmeze, în fișierul de lucrări, cartelei de comandă prin care se cere execuția programului în care acest fișier este definit D acă unitatea periferică afectată unui fișier pe cartele nu este o unitate a sistemului, idex-ul trebuie să fie o literă urmată de caracterele СІІ sau CP, care indică tipul unității periferice: cititor de cartele și, respectiv, perforator de cartele în acest caz, adresa simbolică' a unității periferice trebuie indicată în cartela de comandă ASSIGN, în care trebuie să figureze același idex Rezultă din cele prezentate că, în cazul fișierelor pe cartele, formatul general al frazei SELECT este: ( SYSIN SYSPUNCH CR [CP I i b Reprezentarea datelor pe cartele Deoarece prin с^геа/^“вгеа unui articol nu se realizează decît conversia cod Hollerith — cod EBCDlc/co SELECT nume-fișierASSIGN ТО și Compararea termenilor se realizează, în principiu, astfel: — în cazul în care ambii termeni sînt numerici, se compară valorile algebrice ale acestora (valorile termenilor pot avea reprezentări interne diferite); — în cazul în care cel puțin un termen este nenumeric, se compară succesiv, de la stînga la dreapta, caracterele ce compun valorile termenilor (dacă numărul caracterelor acestor valori nu este egal, compararea este precedată de completarea, la dreapta, cu caractere „spațiu", a valorii termenului cu lungime mai mică; dacă unul dintre termeni este numeric, iar valoarea sa este reprezentată în zecimal-împachetat, în cod complementar sau în virgulă mobilă, compararea nu este precedată de conversia acestei valori în zecimal- despachetat) • Testul de semn stabilește dacă valoarea algebrică a unei date elementare numerice sau a unei expresii aritmetice este mai mică, egală, sau mai mare decît zero ♦ * Formatul condiției testate este: nume-dată expres ie- a r Urnei ică IS [NOT] NEGATIVE ZERO positive Valoarea logică a condiției este „adevărat" dacă valoarea datei sau a expresiei aritmetice corespunde opțiunii utilizate (NEGATIVE, ZERO sau POSITIVE) și „fals", în caz contrar Testul de clasa stabilește dacă valoarea unei date este nui ti >erică sau alfabetică Formatul condiției testate: nume-dată IS [NOT] NUMERIC ALPHABETIC > Valoarea logică a condiției este „adevărat" dacă: — valoarea datei nume-dată — care poate fi o dată elementară numerică reprezentată în zecimal-împachetat sau zecimal-despachetat, o dată alfanumerică sau o dată grupată — este formată numai din cifre (cazul opțiunii NUMERIC); — valoarea datei nume-dată — care poate fi o dată elementară nenumerică sau o dată grupată — este formată numai din litere, și, eventual caractere „spațiu" (cazul opțiunii ALPHABETIC) • Testul numelui de condiție reprezintă o facilitate a limbajului COBOL care simplifică exprimarea unei condiții Un nume de condiție reprezintă un lileral- VALUE IS VALUES ARE J THROUGH I THRU identificator asociat unei valori, unui interval de valori, sau unei reuniuni de intervale de valon ale unei^date și este definit printr-o rubrică de forma: nume-condițic t prmtr-o rub f THROUGH) \hteral- I THRU J * literal- • • • literal- Această rubrică trebuie să urmeze imediat celei în care este descrisă data a cărei valoare este testată în cazul în care se testează dacă valoarea datei este egală cu o valoare dată, această valoare se indică prin literil în cazul în care se testează dacă valoarea datei aparține unui interval dt valori, limita inferioară a acestuia este indicată prin literal- , iar limita superioară prin literal- în cazul în care se testează dacă valoarea datei aparține unei reuniuni de intervale, limitele acestora sînt indicate prin literal- și literal- t literal- și literal- ș a m d Evident, literalele citate în rubrica ce descrie numele de condiție trebuie să corespundă categoriei datei ale cărei valori sînt testate în instrucțiunea care testează valoarea datei, condiția este indicată prin numele de condiție (care poate fi precedat de operatorul logic NOT\ Valoarea logică a condiției este ,,adevărat" dacă valoarea datei corespun le valorii sau intervalelor de valori asociate numelui de condiție Exemplu Se consideră că articolele unui fișier pe cartele conțin pateu date: TIP, COD, DENUMIRE și VALOARE, care trebuie testate conform scllemei din figura XV ART icul TIP PIC X ' TIP-CORECT VALUE zaz ’ COD PIC COD-CORECT VALUE O' THRU DENUMIRE: PIC A formată clin două sau mii dacă paloarea logică a fiecăreia dintre condițiile simple este „adevărat Utihzînd condiții compuse secvența TESTARE din figura XV - noat-transene astfel: TESTARE IF NOT TIP-CORECT THEN PERFORM Ml ELSE IF COD NOT NUMERIC THEN PERFORM М ELSE * IF (COD ) THEN PERFORM М IF DENUMIRE NOT ALPHABETIC THEN PERFORM M IF VALOARE NOT POSITIVE THEN PERFORM M ELSE IF NOT (VALOARE = OR VALOARE = OR VALOARE = OR VALOARE = OR VALOARE = ) THEN PERFORM M Observații în absența parantezelor in cadrul unei condiții compuse, ierarhia operat? iloi este uiu- a toarea: — operator» aritmetici; — operatorii de relație; — operatorul logic NOT; — operatorul logic AN ); — operatorul logic OR, De exemplu, considerînd două date A și B, ale căror valori slut l și, respecți , ~ valoarea logică a condiției compuse A -p > В AND A ț)) OR NOT ((( > (())) este „fals" VALIDAREA DATELOR Reprezintă operația prin care valorile datelor de intrare ale unui program (date organizate, în general, în fișiere) sînt verificate pentru a fi semnalate și înlăturate erorile care pot apărea datorită: întocmirii sau completării incorecte a documentelor primare de informații, transpunerii incorecte a informațiilor din documentele primare pe diferite suporturi de informație (cartele, benzi magnetice etc ), codificărilor greșite etc Semnalarea și înlăturarea erorilor este necesară pentru a se evita ca programele de calcul să prelucreze date eronate Există două categorii de controale ce pot fi efectuate asupra valorii datelor: controale formale și controale de conținut (fond) • Controalele formale au scopul de a verifica dacă: — valorile datelor există în zonele ce le sînt asociate pe suport (de exemplu, este posibil ca valoarea unei date să nu fie perforată pe cartele); — valorile datelor sînt decalate sau trunchiate; — valorile datelor numerice sînt formate numai din caractere numerice, iar valorile datelor alfabetice sînt formate numai din caractere alfabetice (de exemplu, este posibil ca o literă să fie perforată în locul unei cifre sau invers) • Controalele de-conținut au ca scop de a verifica: — compatibilitatea datelor, adică relațiile logice care există între valorile datelor ce compun articolele (de exemplu, în cazul unui articol ce conține date referitoare la un produs, se poate verifica relația: valoare = cantitate *preț) — dacă valorile datelor aparțin unor nomenclatoare sau norme de existență (de exemplu, în cazul unui articol ce conține date referitoare la un lucrător al unei întreprinderi, se poate verifica dacă numărul de copii are valori cuprinse între și ) etc în general, validarea datelor se realizează în cadrul unor programe distincte Aceste programe trebuie realizate în așa fel, încît, la semnalarea unei erori, în cazul validării datelor unui articol, să nu fie abandonată efectuarea celorlalte controale, adică se va avea în vedere ca printr-o singură execuție a programelor să fie semnalate toate erorile posibile De asemenea, la înlănțuirea controalelor, trebuie să se aibă în vedere eliminarea efectuării de controale inutile (de exemplu, nu are sens verificarea relației valoarea = cantitate * preț, dacă valorile celor trei date nu sînt numerice) în general, erorile sînt semnalate la imprimantă prin mesaje clare, iar aceste mesaje sînt precedate sau urmate de articolul la ale cărui date au fost detectate erorile De asemenea, valorile datelor care nu satisfac condițiile testate sînt corectate, fiind supuse din nou operației de validare, printr-o nouă execuție a programului Ехетрігі Se consideră un fișier pe cartele ale cărui articole conțin informații referitoare la produsele vîndute în cadrul magazinelor unei întreprinderi comerciale Fiecare articol conține date referitoare la un produs: cod magazin, cod produs, denumire produs, cantitate, unitate de măsură, preț unitar și valoare (fig XV ) în vederea unor prelucrări ulterioare valorile datelor ce compun articolele trebuie validate pentru a fi depistate eventualele erori care au putut fi generate la întocmirea documentelor primare, transpunerea datelor din documentele primare pe cartele, perforarea cartelelor Testele ce se vor face trebuie să verifice dacă: — valorile datelor CANTITATE, PREȚ-UNITAR ȘI VALOARE sînt numerice; — data COD-MAGAZIN are valori cuprinse între și ; — relația VALOARE = CANTITATE * PREȚ-UNITAR este adevărată (testarea acestei relații se va face numai dacă valorile datelor VALOARE, CANTITATE și PREȚ-UNITAR sînt numerice); — valorile datei UNITATE-MĂSURĂ aparțin mulțimii [KG, BUC, MP}; — valorile datei DENUMIRE-MAGAZIN există în cîmpul care îi este rezervat pe cartelă și, eventual, dacă aceste valori sînt decalate spre dreapta în cazul în care este depistată o eroare aceasta va fi se: na lată la imprimantă printr-un mesaj De asemenea, dacă pentru o cartelă va fi semnalată cel puțin o eroare, la imprimantă va fi tipărită imaginea cartelei (aceasta trebuie însă să preceadă mesajele de eroarei Se cere, de asemenea, să se determine și să se tipărească numărul total de cartele verificate, corecte și eronate O modalitate de rezolvare a problemei enunțate este prezentată în programul XV PROBLEME ( ) Fig XV Se consideră un fișier pe cartele ale cărui articole conțin date referitoare - ' r-nizorii unei întreprinderi Datele unui furnizor sînt înregistrate pe mai multe cartele astfel: datele de identificare a furnizorului — cod, denumire» adresa, distanța față de întreprinderea beneficiară — pe o cartelă (do tip ); date e referitoare la materialele pe care furnizorul le livrează — cod, denumire, ■'л ’» costul transportului (exprimat în lei/tone/km) — sînt înregistrate pe та тиле cartele (de tip ) ce urmează primei cartele Să se scrie un program care să determine si să afișeze la imprimantă datele de identificare a furnizorului care livrează cel mai convenabil un anumit material Codul acestui material va fi citit de pe o cartelă parametru, prin instrucțiunea ACCEPT Zilnic, pentru fiecare muncitor al unei întreprinderi se perforează o cartelă cu datele de identificare a muncitorului (număr marcă, nume) și cîte o cartelă pentru fiecare operație realizată (număr marcă, cod operație, număr de execuțu a operației, valoarea manoperei pentru o execuție a operației) aceste cartele, ordonate după numărul de marcă, alcătuiesc un fișier Să se scrie un program care, pentru fiecare muncitor, să perforeze o cartelă să conțină următoarele date: număr marcă, nume, retribuție CAPITOLUL XVI ÎNTOCMIREA RAPOARTELOR în capitolul XI s-a precizat faptul că limbajul COBOL prezintă, comparativ cu alte limbaje, facilități suplimentare pentru definirea și realizarea de rapoarte (situații tipărite la imprimantă) Scopul acestui capitol este de a prezenta aceste facilități precum și două operații implicate în realizarea rapoartelor: transferul datelor și editarea datelor De asemenea, întrucît rapoartele sînt realizate, în general, prin intermediul fișierelor la imprimantă, vor fi prezentate și caracteristicile acestora TRANSFERUL DATELOR Operațiile de transfer (atribuire) sînt descrise în limbajul COBOL prin instrucțiunea MOVE Format general : MOVE nume-dată- literal- ТО nume-dată- [,mme-dată- ] Format general : -r (CORRESPONDING) J J MOVE/ J nume-data- ТО nume-data- (CORR J Formatul descrie operație de transfer a valorii datei nume-dată- literal- (numită dată emițătoare) în zonele asociate datelor nume-dată- , nume-dată- (numite date receptoare) Formatul descrie operația de transfer a valorilor datelor corespondente ce aparțin datei nume-dată- în zonele asociate datelor corespondente ce aparțin datei nume-dată- Observație Pentru simplificarea prezentării, în cele ce urmează se va considera că într*o operație de transfer este implicată o singură dată receptoare în funcție de tipul datelor citate în instrucțiunea MOVE transferul poate fi: — numeric, dacă data receptoare este o dată elementară numerică sau numerică de editare; — alfanumeric, dacă data receptoare este o dată elementară alfabetică, alfanumerică sau o dată grupată a Transferul numeric Se efectuează după următoarele reguli: — caracterele valorii datei emițătoare sînt înregistrate în zona corespunzătoare datei receptoare de la marca zecimală spre stînga și, eventual, spre dreapta (dacă valoarea transferată reprezintă un număr cu zecimale); — dacă numărul caracterelor valorii datei emițătoare este mai mic decît numărul locațiilor zonei asociate datei receptoare, în fiecare locație neocupată prin transfer este înregistrat caracterul (zero); în caz contrar, caracterele ce nu pot fi înregistrate sînt neglijate (deci valoarea transferată este trunchiată); — dacă formatul de reprezentare al valorilor datei receptoare este diferit de cel al valorilor datei emițătoare, transferul este precedat de conversia valorii de transferat în formatul de reprezentare corespunzător datei receptoare ; — dacă data receptoare este numerică de editare, prin transfer se reali’ zează și editarea, conform șablonului de descriere din clauza PICTUJRE tic b Transferul alfanumeric Se efectuează după următoarele reguli: — caracterele valorii datei emițătoare sînt înregistrate în zona cores punzătoare datei receptoare de la stînga la dreapta; — dacă numărul caracterelor valorii datei emițătoare este mai i decît numărul locațiilor zonei asociate datei receptoare, în fiecare locație neocupată prin transfer este înregistrat caracterul „spațiu"; în caz contrar, caracterele care nu pot fi înregistrate, sînt neglijate; — dacă valoarea de transferat este reprezentată în zecimal-împache:at, în cod complementar sau în virgulă mobilă, transferul este precedat de conversia valorii de transferat în zecimal-despachetat, în primele două cazuri sau în virgulă mobilă format extern, în ultimul caz; un număr în virgulă mobilă format extern are forma: {±} mantisă E {±} exponent unde: mantisa este formată din sau cifre, după cum numărul este reprezentat în virgulă mobilă simplă precizie sau dublă precizie, iar este format din două cifre Observație Regula de bază după care SC efectuează transferul alfanumeric în cazul în care data receptoare este o dată elementară alfanumerică Săli alfabetică, poate fi modificată prin inter* mediul clauzei JUSTIFIED Formatul general al acestei clauze Stc: ( JUSTIFIED ) { J RIGHT Simboluri permise în șabloanele de descriere Simbolul un caracter alfabetic poziția în care va fi inserat caracterul „spațiu" o cifră marca zecimală virtuală valorile datei reprezintă numere cu semn poziția în care va fi inserat caracterul „zero" poziția în care un zero nesemnificativ va fi înlocuit prin caract*n:I „spațiu" poziția în care un zero nesemnificativ va fi înlocuit prin caracterul • marca zecimală reală, dacă aceasta este punctul, sau poziția ia care va fi inserat caracterul , dacă aceasta este virgula marca zecimală reală, dacă aceasta este virgula, sau poziția în care va f inserat caracterul , , dacă aceasta este punctul poziția în care va fi inserat caracterul -, dacă valoarea datei esteuii număr pozitiv, sau caracterul —, dacă valoarea datei este unnumlr negativ poziția în care va fi inserat caracterul „spațiu" dacă valoarea datei e> un număr pozitiv, sau caracterul —, dacă valoarea datei este un nu măr negativ pozițiile în care vor fi inserate două caractere „spațiu", dacă alcarea datei este un număr pozitiv, sau caracterele CRjDB, dacă valoarea datei este un număr negativ poziția în care va fi inserat simbolul monetar în mod obișnuit, marca zecimală reală este indicată prin caracterul , iar simbolul monetar prin caracterul $ Schimbarea acestor convenții se poate realiza prin clauzele CURRENCY SIGN IS literal și DECIMAL POINT IS СОММА ale paragrafului SPECIAL-NAMES Prima clau?ă stabilește un alt simbol monetar (care nu poate fi însă unul dintre următoarele caractere: cifrele de la la , literele А, В, C, D, E, P, R, S, V, X» Z sau caracterele speciale •, + , —, (,), și spațiul), iar a doua clauză stabilește drept marcă zecimală reală virgula Alegerea virgulei drept marcă zecimală necesită ca în literalele numerice această convenție să fie respectată în absența clauzei DECIMAL-POINT IS СОММА marca zecimală reală este punctul, deci acesta poate figura în șablon o singură dată, iar virgula poate fi utilizată ca separator al grupelor de cîte trei cifre; în caz contrar, funcțiile punctului și ale virgulei se schimbă între ele Editarea valorilor datelor se realizează prin două metode: — inserare (fixă sau mobilă); — suprimare și înlocuire, • în cazul inserdrii fixe, caracterele de inserat sînt іпг*^ ГпХ cu zona asociată datei, în locațiile ale cai or poziții în cadiu inserare poziția simbolurilor în cadrul șablonului Simbolurile care indică o fixă sînt В, O,* (sau ,), +, —, CR, I)B și $ (sau un alt simbol monetar) Simbolurile -, — și simbolul monetar indică o inserare fixă, dacă apar* o singură dată în șablon Dc asemenea, trebuie remarcat faptul că simbolurile - și — pot figura (ori unul, ori celălalt) ca prime sau ultime simtwluri ale șablonului, simbolul monetar, ca prim simbol al șablonului, iar simbolurile CR sau DB, ca ultime simboluri ale șablonului Dacă simbolurile -, și simbolul monetar apar dc mai multe ori consecutiv în șablon (și anume, la începutul acestuia), ele indică o inserare mobilă și se numesc simboluri mobile) • în cazul inserării mobile, caracterul dc inserat este înregistrat, în zona asociată datei, în locația ce corespunde:^ — primului simbol mobil al șablonului, dacă valoarea datei nu conține zerouri nesemnificative; — ultimului simbol mobil al șablonului, dacă valoarea^ datei conț nu un număr de zerouri nesemnificative mai mare decît numărul de apariții al simbolului mobil în șablon — ultimului zero nesemnificativ al valorii datei, dacă aceasta conține un număr de zerouri nesemnificative mai mic decît numărul de apar ții ale simbolului mobil în șablon La utilizarea simbolurilor mobile trebuie să se țină seama de urmă- toarele reguli: — dacă șablonul indică inserarea mărcii zecimale și simbolul mobil apare la dreapta acesteia, iar partea întreagă a valorii datei este zero și primele cifre ale părții zecimale sînt zerouri, -simbolul mobil este înregistrat în locația ce o precede pe cea în care este înregistrată marca zecimală; — dacă șablonul conține numai simboluri mobile, iar valoarea datei este zero, în fiecare locație a zonei asociată datei este înregistrat caracterul „spațiu" (chiar dacă șablonul indică inserarea mărcii zecimale); — într-un șablon nu poate figura decît un singur simbol mobil • Suprimarea și înlocuirea se indică prin simbolurile mobile Z și * Aici trebuie făcută observația că suprimarea zerourilor nesemnificative și înlocuirea lor prin spații, sînt oprite de marca zecimală Dacă însă valoarea datei este zero, iar șablonul este format numai din simboluri Z, sau numai din simboluri *, în fiecare locație a zonei asociată datei este înregistrat caracterul „spațiu" sau, respectiv, caracterul * în tabelul XVI sînt prezentate cîteva exemple de editare a valorilor datelor TABELUL XVL (ronlinuare) FIȘIERE LA IMPRIMANTA a, Caracteristici Fișierele la imprimantă pot fi numai create, iar modul de acces la articole care le compun este întotdeauna secvențial Un axuvcl reprezintă un lînd tipărit pe htrtiu de imprimat Numărul maxim decaractere car» intră în alcătuirea unui rînd este în funcție de tipul imprimante In cazul imprimantelor compatibile cu sistemele FELIX acest număr este Formatul articolelor poate fi fix sau variabil Imprimanta poate realiza trei tipuri de operații: imprimarea unui rtnd; avansul hîrtiei cu un realiza irei upun ne operații' imprimarea unu* anumit număr de rînduri și imprimarea unui rmd» avansul hîrtiei fără imprimare Aceste орг» ații, a căroi eio tiuie este maica în program, dă posibilitatea dispunerii duducilor pe hhtia dv impumit m diverse moduri In vederea programării acestor operații asociază un caracter numit cod wd $ ia и гл T s T U A A s T c и R L R * X X X X X X X X X X X X X X X X X X X X • X X X X X X X X X X № c D * c « D • X s T c • X № M A G A z X E X M A T X E R A l X E X s T E N г * € * * X X И X * X X X X X X X X X X X X X X X X X X X X X X • > X X X X • и X • • X X X X X X X X X X X RM Я X - —— X • • X X X • X X * X X X X * X X, X X X X X X X X X X X X X X X X X X X X X X » • • J Fig ХѴІД R R Tuturor datelor care compun articolele Rl, R , R și R li s-au atribuit valori inițiale în schimb, în cazul articolului RÎND, numai anumitor date (cele identificate prin FILLER) li s-au atribuit valori (valori ce delimitează coloanele raportului); datelor COD-MAGAZIE-E, COD-MATERIAL-E și STOC-EXISTENT-E nu li s-au atribuit valori inițiale, deoarece valorile lor diferă de la un rînd la altul Pentru scrierea unui anumit rînd, imaginea acestuia, aflată în zona asociată articolului Rl, R , R , R sau RÎND, a fost transferată, utilizînd opțiunea FROM a instrucțiunii WRITE, în zona-articol ART-E PROBLEME Considerînd următoarele descrieri de date: DATE-EMITATOARE A PIC ( ) VAI B C PIC S ( ) VA PIC ( ) VALUE PIC S ( ) VALUE - D PIC X( ) VALUE ' ' E PIC ( )V VALUE DATE-RECEPTOARE; G PIC S ( )V H PIC S ( ) COMP- I PIC X( ) JUST RIGHT J PIC V К PIC X( ) să se indice valorile datelor receptoare după execuția următoarelor instrucțiuni; MOVE А ТО G MOVE С ТО H MOVE D ТО I MOVE E ТО J MOVE В ТО К MOVE DATE-EMITATOARE ТО DATE-RECEPTOARb Să se scrie un program care să citească n numere reale (n ) de pe o cartelă și să le afișeze fiecare pe un rînd (punîndu-li-se în evidență semnul și marca zecimală) astfel: primul număr va fi afișat la începutul unei pagini, iar celelalte, să fie precedate fiecare de un număr de interlinii egal cu numărul său de ordine Să se editeze raportul prezentat în figura XIII (vezi programul XIII l) astfel încît titlul acestuia să apară la începutul unei pagini, iar pe o pagină să fie scrise de rînduri (în acest număr incluzîndu-se și numărul rîndurilor care formează antetul raportului CAPITOLUL XVII PRELUCRAREA TABLOURILOR în COBOL un tablozt reprezintă o mulțime de date de aceeași categorie și lungime, care apar succesiv în cadrul unui articol; aceste date se numesc elemente ale tabloului Există două categorii de tablouri: cu număr fix de elemente și cu număr variabil de elemente în figura XVII l sînt prezentate patru tablouri Primele trei au număr fix de elemente; elementele NOTA, , A și LUNA reprezintă: notele anuale ale unui elev, elementele unei matrici cu patru linii și patru coloane — A ( , )-și, respectiv, producțiile lunare obținute de o întreprindere industrială Tabloul inclus în articolul ART, are un număr variabil de elemente; un element reprezintă o dată grupată, REPER care indică, prin valorile datelor subordonate, numărul de operații efectuate la un reper de către un lucrător al unei întreprinderi Întrucît numărul de repere poate diferi de la un lucrător la altul, pentru prelucrarea elementelor tabloului, în articolul ART, s-a prevăzut data NR-REPERE ale cărei valori indică numărul de repere IDENTIFICAREA ELEMENTELOR TABLOURILOR Individualizarea elementelor unui tablou se poate realiza utilizînd indici sau indecși • Un indice reprezintă un literal numeric, o dată numerică sau registrul special TALLY Valoarea unui indice trebuie să fie un număr întreg, mai mare decît zero Numărul de indici (sau indecși) folosiți pentru identificarea unui element al unui tablou reprezintă dimensiunea tabloului în COBOL pot fi prelucrate tablouri cu una, două și cu trei dimensiuni în funcție de numărul de dimensiuni ale tabloului și de elementele care trebuie referite, identificarea se realizează utilizînd unul, doi sau trei indici (sau indecși) Un indice, sau un ansamblu de indici, se scrie între paranteze, la cel puțin un spațiu după numele elementului; dacă identificarea se realizează printr-un ansamblu de indici, aceștia trebuie separați prin cel puțin un spațiu sau prin virgulă urmată de cel puțin un spațiu (nici zm spațiu nzt trebuie sa urmeze parantezei deschise sau să preceadă paranteza închisă) De exemplu, construc- NOTA (i) A ( , ) LUNA (i, J, ; NR-OPERATII ( ) identifică: — a doua notă din tabloul TABLOU-NOTE, dacă = ; — primul element al liniei a matricei A ( , ) din tabloul TABLOU-MATRICE ; TABLOU-MATRICE I LINIE TABLOU-NOTE I NOTA V NOTA NOTA V V LINIE NOTA V NOTA V NOTA V NOTA NOTA V Г V S V IS V IS V IS V S V S V S V S V S V S V S V LINIE LINIE A А А A A S V S ^/ |S V S V S V TABLOU-PRODUCT IE SEMESTRU SEMESTRU TRIMESTRU • TRIMESTRU • TRIMESTRU TRIMESTRU LUNA I LUNA I LUNA LUNA | LUNA | LUNA LUNA LUNA I LUNA LUNA I LUNA I LUNA ( ) | ( ) | ( ) ( ) ( ) ( ) ( ) ( ) ( ) А А а I — • — Ă • TABLOU-REPERE maximum ART • • NR-MATRICOL ( ) ' NUMĂR-REPERE • ( ) REPER | • NR-OPERAȚII | • ( ) COD-REFER] ( ) Fig ХѴЦ REPER * NR-OPERAȚIII COD-REPER j — producția obținută în a doua lună a trimestrului din semestrul , din tabloul TĂBLO’U-PRODUCTIE, dacă I = iar J = ; — numărul de operații efectuate pentru al doilea reper din tabloul TABLOU-REPERE Valoarea unui indice, utilizat pentru referirea unui element al unei dimensiuni a tabloului, trebuie să fie cuprinsă între și numărul maxim de elemente ce corespund dimensiunii respective — Un indice nu poate fi indiciat; de exemplu, construcția: LUNA (I, J, К (L)) nu este admisă • Un index reprezintă un tip aparte de indice; spre deosebire de valoarea unui indice, valoarea internă a unui index reprezintă adresa relativă în cadrul tabloului, a zonei rezervată unui element De exemplu, în cazul tabloului TABLOU-MATRICE, dacă referirea celui de-al doilea element al liniei se realizează prin doi indecși, L și C, adică: A (L, C) valorile acestora trebuie să fie și, respectiv, Trebuie precizat însă faptul că, în cadrul programelor, indecșilor li se atribuie valori (numai prin instrucțiunile SET, SEARCH și PERFORM VARYING) ca și cum ar reprezenta indici Există două modalități de referire a clementelor unui tablou utilizînd indecși: — directă, cînd se indică indexul (care reprezintă un identificator COBOL), ca de exemplu: NOTA (I) — relativă, cînd se indică indexul urmat de unul din operatorii aritmetici + sau — și de un literal (care reprezintă un număr întreg), ca de exemplu: NOTA (J + ) NOTA (J - ) Utilizarea indecșilor este recomandată întrucît simplifică adresarea elementelor DESCRIEREA TABLOURILOR Definirea unui tablou necesită precizarea următoarelor informații: categoria elementelor, dimensiunile acestuia, numărul de elemente ce corespund fiecărei dimensiuni și, eventual, cheile după care sînt ordonate elementele și indecșii asociați fiecărei dimensiuni Categoria este precizată prin clauzele PICTURE și/sau USAGE, clauze care trebuie să figureze numai în rubricile de descriere a elementelor ce corespund ultimei dimensiuni Celelalte informații sînt precizate prin intermediul clauzei OCCURS Format general: OCCURS / înlre^ TIMES | \înlreg- ТО întreg- TIMES DEPENDING ON nume-dată- f П ASCENDING )TZTZ,r Tr, I DESCENDING IS nume'dată' ^nnme'dată' ]—\ [INDEXED BY index- [index- ] ] "же- a Opțiunea întrcg- TIMES este utilizată pentru definirea tablourilor cu număr fix de clemențe: acest număr este indicat prin înlrcg- ,care trcTTuîe’sT fie un număr înticg pozitiv, mai marc decît zero Clauza OCCURS cu opțiunea întrcg- TIMES poate figura în maximum trei * ubrici de descriere succesive (ale căror numere de nivel, care au valori în intervalul [ , ], notate cu n , n și n , satisfac relația: n ?Și рз), precum și a condițiilor testate (condiție- , condiție- și condiție- ) este aceeași ca în cazul primului format al instrucțiunii Principiul de execuție a instrucțiunilor PERFORM VARYING, ce corespund formatelor și » este prezentat în figurile XVI și XVI Observația care se poate face referitor la ultimele două formate este aceea că secvența nume-prelucrare- [THRU nume-prelucrare- ] este comună ciclurilor descrise prin instrucțiune De exemplu, secvența din figura XVII , care determină și tipărește suma elementelor liniilor matricei A ( , ) nu poate fi descrisă printr-o singură instrucțiune PERFORM VARYING deoarece Fig ХѴП Fig XVII Fig XVII # ІЛ - - - *- Ж' între cele două cicluri controlate de variabilele I și J se interpun operațiile «dZS'asHcî: P "rC a ѴаІ ПІОГ date* SUMA‘ Acea»tâ secvență poate SUMA-LINII ( ICLU-I VARyiNG I FROM BY UNTIL I> MOVE ZERO ТО SUMA PERFORM CICLU-J VARYING J FROM BY UNTIL T > 'ICLU^^ SUMA ELEMENTELOR LINIEI 'I' ESTE 'SUMA ADD А (I J) ТО SUMA Exemplu Fie un fișier pe cartele, ale cărui articole conțin date retoi-toare la producțiile lunare realizate în cadrul intreprinderilor unei centrale industriale: cod întreprindere ( caractere numerice), denumire întreprindere ( caractere alfanumerice), producția realizată în cele luni ale anului ( caractere numerice) Se cere ca, prin consultarea acestui fișier, să se editeze la imprimanta un raport care să conțină, pentru fiecare întreprindere, un rînd care să inuice codul întreprinderii și producțiile trimestriale Macheta raportului este ore-zenTaTâ în figura XVII % Д B M • c D I R M E S T R u L T R M E s T R U L T R M E s T R u L T R M E и L • • X X ht X X X X X X X X X X X X X X X X X X X X X X X X t X X — Г" X X X Fig XVII Schema logică este prezentată în figura XVII , iar rezolvarea în programul XVII l b Instrucțiunea SET este utilizată pentru a atribui valori indecșilor v — elementul căutat se află în a doua parte a tabloului, notari - sau — elemente ale tabloului cu , și care conține ultimele în cazul în care elementul căutat se află în subtabloul Tț, valoarea indicelui primului element al acestuia rămîne , iar cea a ultimului element devine f; în cazul în care elementul căutat se află în subtabloul lg, valoarea indicelui primului element al acestuia devine it iar cea a ultimului element, lăimne/ în funcție de subtabloul în care se află elementul căutat, a doua iterație — care se efectuează numai dacă c(i) v — constă in sta i irea unui nou indice i', după relația: sau, respectiv, compararea cheii elementului e(i) cu v ș a m d, vorvirkiiil nrezentat Pentru a ilustra concret această metodă se consideiă e l P în continuare Fie un tablou ale cărui elemente conțin numele și mediile generale ale elevilor unei clase (fig ХѴП ); elementele sint ordonate crescător după valorile datei NUME Se cere să se găsească în acest tablou elementul ce corespunde elevului POPESCU și să se tipărească media generală O modalitate de rezolvare este prezentată în figura XVII TABLOU ELEV ELEV • ELEV л | NUME I MEDIA NUME MEDIA NUME MEDIA X ( ^) V | X( ) V О* ADU\A ADD ТО I ADD X ( ) ТО SUMA MOVE О ТО SUMA PERFORM ADUNA VARYING FROM BY UNTIL I ♦ ADUNA ADD X (I) ТО SUMA * c) MOVE ТО I PERFORM ADUNA I TIMES ADUNA ADD X (I) ТО SUMA SUBTRACT FROM I Sa se scrie un program care să realizeze conversia unui număr (format din maximum cifre) din baza în baza Să se scrie un program care să realizeze înmulțirea a două matrici A( , ) și B(Î , ) și tipărirea matricei rezultat Elementele celor două matrici sînt citite de pe cartele, fiecare cartelă continînd elementele unei linii f • Se consideră un fișier pe cartele ale cărui articole conțin informații referitoare la producțiile lunare realizate de întreprinderile unei centrale industriale (vezi structura articolului fișierului FIS-PRODUCȚII din programul ХѴП ) Să se scrie un program care să tipărească la imprimantă, pentru fiecare întreprindere, luna (in clar) în care s-a realizat o producție mai mare decît (Pentru căutarea in tablou a valorii respective se va utiliza instrucțiunea SEARCH) CAPITOLUL XVIII PRELUCRAREA FIȘIERELOR NOȚIUNI DESPRE FIȘIERE a Generalități Caracteristica de bază a limbajului COBOL este aceea că permite descrierea prelucrărilor în care volumul de date este mare Pentru realizarea acestor prelucrări, datele sînt grupate în fișiere Unitatea elementară de organizare și prelucrare a unui fișier se numește înregistrare Deoarece organizarea unui fișier poate fi considerată la nivel logic sau la nivel fizic, înregistrările ce corespund acestor nivele se numesc înregistrări logice (sau articole) respectiv, înregistrări fizice O înregistrare fizică poate fi formată din mai multe înregistrări logice sau poate conține doar o parte a unei înregistrări logice în general în cazul suporturilor nereutilizabile înregistrarea logică se identifică cp înregistrarea fizică, iar în cazul suporturilor reutilizabile o înregistrare fizică conține mai multe înregistrări logice Pentru fișierele înregistrate pe suporturi reutilizabile apare necesitatea identificării și delimitării lor, întrucît pe o unitate de suport (rolă de bandă, pachet de discuri) pot fi înregistrate mai multe fișiere în acest scop acestor fișiere li se asociază informații de control, numite etichete Etichetele pot avea conținut și structură standard, caz în care sînt create prin proceduri ale sistemului de operare, sau conținut și structură oarecare, caz în care sînt create prin proceduri stabilite de utilizator Etichetele dir prima categorie se numesc etichete standard, iar cele din categoria a don etichete utilizator Limbajul COBOL dispune de clauze și instrucțiuni care permit descrierea atît a caracteristicilor fișierelor cît și a operațiilor la care acestea pot fi supuse; aceste operații sînt realizate efectiv prin intermediul sistemului de operare și anume de componenta acestuia — Sistemul de Gestiune a Fișierelor (SGF b Sistemul de gestiune a fișierelor Principalele funcții realizate de SGb se referă la: afectarea de suport fișierelor; blocarea și deblocarea articolelor; gestiunea zonelor-tampon • Prin afectare, fișierelor li se atribuie cantitatea de suport necesară înregistrării articolelor care le compun în cazul suporturilor nereutilizabile afectarea este definitivă, fiind realizată de utilizator în cazul suporturile reutilizabile, afectarea poate fi definitivă sau temporară, fiind realizata c SGF și monitor • Formatul articolelor unui fișier poate fi: — fix, cînd toate articolele au aceeași lungime; — variabil, cînd lungimea diferă de la un articol la altul; în cazul supot tarilor reutilizabile lungimea este asociată articolelor, în momentul imegi^ trării lor pe suport; , t — nedefinit, cînd lungimea diferă de la un articol la altul, msă nu asociată articolelor pe suport r în cazul fișierelor pe suporturi reutilizabile cu articole de formar i sau variabil, înregistrările fizice pot conține mai multe articole Operația — Programarea sistemului de calcul * de constituire a înregistrărilor fizice se numește blocare (grupare) și are loc cînd fișierul este creat (scris); la consultarea (citirea) fișierului are loc operația inversă — deblocarea — care constă în separarea articolelor ce compun înregistrările fizice, în vederea prelucrării • Realizarea operațiilor de intrare/ieșire (citire/scriere) implică existența unei zone de memorie, numită zonă-tampon, în care sînf memorate înregistrările fizice ale fișierului, înainte de scrierea lor pe suport sau, după citirea lor de pe suport Lungimea acestei zone este funcție de lungimea înregistrărilor fizice Pentru realizarea unei simultaneități între prelucrarea datelor ce compun articolele înregistrărilor fizice ale unui fișier și realizarea operațiilor de intrare/ieșire, acestuia îi pot fi afectate mai multe zone-tampon Articolele unui fișier pot fi prelucrate direct în zona-tampon, sau într-o zonă distinctă, numită zonă-articol, rezervată de compilator implicit Lungimea zonei-articol este funcție de lungimea articolelor fișierului în primul caz se spune că modul de acces la articole este MOVE, iar în al doilea caz, LOCATE Modul de acces LOCATE este utilizat, în general, cînd articolele fișierului sînt transferate, fără a suferi modificări, într-un alt fișier Modul de acces MOVE, deși implică rezervarea unei zone de memorie suplimentară (zona-articol), este frecvent utilizat deoarece zona-articol conține numai datele proprii ale articolelor nu și cele ce le sînt asociate de SGF (de exemplu, lungimea în cazul articolelor de format variabil) în vederea memorării și KiregistrăriLpe suport simplifieîndu-se în acest fel modul de adresare a datelor ce compun articolele c Moduri de acces la înregistrările fișierelor Modul de acces la articolele unui fișier reprezintă modalitatea prin care acestea sînt scrise/citite pe/de pe suportul afectat fișierului Există două moduri de acces: — secvențial, cînd un articol, al cărui număr de ordine în cadrul fișierului este n, este scris/citit numai după scrierea/citirea celor n — articole care îl preced pe suport; — direct, cînd fiecare articol al fișierului poate fi scris/citit în/din cadrul unei anumite unități adresabile a suportului d Moduri de organizare a fișierelor Modul de organizare a unui fișier reprezintă metoda de dispunere (înregistrare) a articolelor acestuia pe suport, astfel îneît să poată fi regăsite Trei moduri de organizare a fișierelor pot fi definite în COBOL: secvențială, secvențială-indexată și selectivă (directă) în cazul organizării secvențiale, articolele sînt înregistrate pe suport unele după altele, iar singurul mod de acces permis este cel secvențial în cazul organizării secvențiale-indexale, articolele, care sînt identificabile în mod unic după valorile unei chei, sînt înregistrate pe suport secvențial, în ordinea crescătoare a valorilor cheii și sînt repertoriate (indexate) într-o tabelă, numită tabelă de indecși, Regăsirea unui articol se poate realiza atît în acces secvențial cît și în acces direct; accesul secvențial presupune citirea tuturor articolelor care preced articolul respectiv în fișier, iar accesul direct necesită furnizarea valorii cheii articolului căutat și se realizează prin consultarea tabelei de indecși care, pe baza acestei valori, va indica adresa unității logice de suport în care se află articolul în cazul organizării selective, un articol al fișierului, care este identificabil în mod unic după valoarea unei chei, este înregistrat pe suport într-o zonă alocată unei clase (unui grup) de articole Adresa acestei zone este stabilită printr-un algoritm (calcul) aplicat, de regulă, valorii cheii de identificare a articolelor Regăsirea acestui articol în fișier se realizează indicînd valoarea « т - ■ lungimea maximă Observație Ca și la clauza DATA, clauza RECORD este opțienală, întrucît compilatorul stabilește lungimea zonei necesară memorării articolelor pe baza informațiilor furnizate prin rubricile de descriere a datelor ce compun articolele • Clțvza BLOCK indică numărul de articole conținute de o înregistrare fizică, i^că cate utilizată opțiunea RECORDS, sau dimensiunea zonei de memoria (zonei-tampon) necesară memorării înregistrărilor fizice» dacă este utiJiwtk opțiunea CHARACTERS (această opțiune este implicită) Clauza poate fi utilizată numai în descrierea fișierelor pe bandă sau pe disc magnetic în cazul fișierelor cu articole de format fix, prin întreg- se indică numărul de articole conținute de o înregistrai® fizică sau dimensiunea (în număr de locații) zonei-tampon, după turn este utilizată opțiunea RECORDS și» respectiv, CHARACTERS; în cacul fișierelor cu articole de format variabil, prin irtreg- și întreg- se indică numărul minim și, respectiv, maxim de articole conținute de o Înregistrare fizică sau dimensiunea minimă și, respectiv, maximă a zonei-tampon, în cazul fișierelor cu articole de format nedefinit, prin in^rcg-г și ÎHtrcg- se indică dimensiunea minimă și, respectiv, maximă a zonei-tampon Observații — Dacă este utilizată opțiunea ^RECORDS, dimensiunea zonei-tampon este stabilită de compilator conform tabelei XVIII (unde prin BFS, RCS n și c s-au notat: dimensiunea maximă a zonei-tampon, dimensiunea maximă a zonei-articol, numărul de articole conținute de o înregistrare fizică și, respectiv, lungimea cheii de identificare a articolelor) — Dacă este utilizată opțiunea CHARACTERS, compilatorul verifică dacă in zona-tampon poate fi înregistrat un articol; în caz afirmativ dimensiunea zonei-tampon rămîne cea indicată; în caz contrar, aceasta este stabilită conform relațiilor din tabelul XVIII , considerîndu-se n = Tabelul XVIII Mod de organizare Formatul articolelor Dimensiunea înregistrărilor fizice (bloc/pagină • , К — Variabil BFS = - n(RCS ) Selectivă Fix BFS = + n(RCS + с + ) + л| n = ~ J [ n > , л = • Variabil BFS = + „(KCS + hK= DESCRIEREA OPERAȚIILOR DE ACCES LA FIȘIERE ȘI ARTICOLE Operațiile de acces la fișiere și la articolele lor sînt descrise în limbajul COBOL prin intermediul instrucțiunilor: OPEN, CLOSE READ WRI E și REWRITE a Instrucțiunea OPEN Descrie operația de deschidere a fișierelor, care constă în identificarea și pregătirea lor pentru prelucrare Format general: OPEN INPUT nume-fișier REVERSED WITH NO REWIND [OUTPUT [nume-fișier [WITH NO REWIND]} INPUT-OUTPUT -uri), și pot conține un antet (fig XVIII ) a cărui lungime minimă este de baiți, primii doi baiți reprezentînd numărul de ordine al blocului în cadrul fișierului XVIII Antet t Fig ХѴШ a — articole de format fix; b — articole de format variabil: c — articole de format nedefinit (NB), iar ultimii doi, lungimea blocului (LB) Prezența antetului trebuie indicată în cartela de comandă FILE, prin argumentul: MFF:([bir] [,BLC] [, CBSj) unde: — Inr indică lungimea antetului (l^nr^ ); — BLC indică faptul că antetul conține lungimea blocului; — CBS indică faptul că antetul conține numărul de ordine al blocului în cadrul fișierului Lungimea și numărul de ordine al blocului sînt înregistrate în antet la crearea fișierului și sînt verificate la consultarea acestuia îfi mod obișnuit blocurile nu au prevăzut antet în vederea identificării și protecției, fișierelor pe bandă li se asociază etichete, care sînt grupate în blocuri de lungime de caractere, la începutul și la sfîrșitul fișierelor în figura XVIII se prezintă dispunerea acestor etichete pe suport în cazul structurilor monovolum — monofișier (fig XVlILÎa și monovolum — multifișier (fig XVIII ) Grupurile de etichete sînt delimitate prin mărci de fișier (FM); sfîrșitul unui fișier, sau al unui multifișier este indicat prin două mărci de fișier Semnificația notațiilor din figura XVIII este următoarea: — VOL —eticheta de identificare a volumului; — HDRl, HDR — etichete de început de fișier (conțin informațiile de identificare a fișierului — nume, număr de generație» număr de versiune etc — și informații referitoare la structura fișierului — formatul articolelor, lungimea articolelor, lungimea blocurilor etc ); — EOF , EOF — etichete de sfîrșit de fișier (au, în principiu, același conținut ca etichetele HDRl, HDR ); — EOV , EOV — etichete de sfîrșit de volum (au același conținut ca etichetele EOF , EOF , fiind create numai dacă sfîrșitul fișierului coincide cu sfîrșitul volumului) * b Tipuri de prelucrări Crearea și consultarea fișierelor secvențiale pe bandă sînt ilustrate prin intermediul programelor XVIII și XVIIL Programul XVIII I realizează înregistrarea pe bandă a datelor fișierului pe cartele din programul XV Deoarece asupra acestor date nu se fac prelucrări» ele nu sînt explicitate în descrierea articolului în programul XVIII fișierul pe bandă creat prin execuția programului XVIII I este consultat, editîndu-se la imprimantă valoarea produselor vii о ш о ш ciute în cadrul unui magazin Codul acestuia este indicat prin inteimediul unei cartele parametru S-a consi derat că în fișierul pe bandă nu există o ordonare* a articolelor după valorile codurilor magazinelor c Multifișiere pe bandă magnetică în COBOL un multifișicr pe bandă nu face obiectul unei descrieri speciale în schimb, fișierele membre sînt descrise, ca orice fișiere obișnuite, prin rubricile SELECT și HI), iar numele lor trebuie citate în clauza MULTIPLE FILE Ordinea în care fișierele membre sînt menționate în clauza MULTIPLE FILE nu are legătură cu ordinea înregistrării acestora pe suport Fișierele membre sînt dispuse pe suport secvențial, în ordinea menționată în program ; din acest motiv, aceste fișiere nu pot fi deschise și prelucrate in același timp Utilizarea opțiunii WITH NO REWIND în instrucțiunile OPEN și CLOSE asigură suprimarea rebobinării benzii, care are loc, îm mod obișnuit, la deschiderea/în-chiderea unui fișier membru în acest fel, se poate trece de la crearea/consultarea unui fișier membru al cărui număr de ordine în cadrul multifișierului este n, la crearea/consultarea fișierului membru cu numărul de ordine n + (indicîndopțiunea WITH NO REWIND în instrucțiunea CLOSE în care este citat fișierul cu numărul de or dine n și în instrucțiunea OPEN în care este citat fișierul cu numărul de ordine n + ) Deoarece SGF-ul nu asigură automat poziționarea dispozitivului de scriere/citire decît la începutul primului fișier membru, pentru a consulta un anumit fișier membru, altul decît primul, trebuie parcurse toate fișierele membre care îl preced pe suport De asemenea, dacă într-un program sînt prelucrate primele m fișiere membre ale unui multifișier care conține n fișiere membre, nu este necesar de a descrie toate cele n fișiere membre, ci numai primele ni Observație Cartelele de comandă care trebuie asociate unui multifișicr pe bandă sînt: — o cartelă FI SET în care se indică identificatorul de exploatare al multifișierului (identificatorul de exploatare asociat multifișierului coincide cu identificatorul de exploatare al primului fișier citat in clauza MULTELE FILE) și tipul multifișierului, prin argumentul MFS MFT; — o cartelă ASSIGN in care se indică identificatorul de exploatare al multifișierului și adresa simbolică a unității periferice tare ii este afectată ; — cite o cartelă LAHEL pentru fiecare fișier membru, in care se indică informațiile de identificare a acestora - ■—г - -г'х*- чЛЯ^ЧИН*»#* «'«•'*'МЖІІЧ^іелрчііІ М «* ; JOb COBOL • AN î IS »PN COMPILE COBOL І DIVISION PROGRAM-ID PVI III ENV RONMEN Г D IVISI UN CONFIGURAIION Sh С T l O N INPUI-OUTPUT SE С ON FILE*t?ONTROL FELIX SELECT DESFACERI-C ASSlbN (O SteIN SELECT DEȘI ACERI-B AS GN Jij An) DATA DIVISION FILE SECTION FD DESFACERI-C KEGORDINb F LABEL RtLOKD UMIIJED PRODUS- ti P С ' X ■ ) ’D DESFACERI-В RELUh'DING F LAR> L Rk l'JRD b AND ap BLOCL CONT a ins F tCORl'S PRODUS-B PIC Х( ъ ) / U O R NIN b ~ b ( U P A G L Ъ ELI ii N ♦ SF > С VALUE ZERO ♦ PROCELțURt DiVIblUN CREARE OPEN NRIJI DESFALtKl-L UUI FUf DbbF ALfchl b PERFORM CI ( LRL-SLF-IFRL UNUL SF -CLOSE LiESF ACEFU L DtiSF AURl-B STOR F-'UN l I R E ~ b L R E Fi E REALI DESF ACEF' -L AI LND MUVE l'J SF IF SF = O HEN W R E F ‘ R O Li l J S - E F R U П F R U Li U b ~ L ♦ LLHR INII Li VI îhî » VSZril IMAN ASS l GN A • LIV I : M I • VS : ПI MAR LABEL Aon: litb^ACtRl F Ol VAL-TOTALA PIC C IV VALUE ZERO Ol VAL-TOTALA-E PIC Z(ll) • PROCEDURE DIVISION • CONSULTARE OPEN INPUT DESFACERI ACCEPT PARAMETRU READ DESFACtRl AT END MOVE țO SF PERFORM TEST UNTIL SF « - MOVE VAL-TOTALA ТО VAL-TOTALA-E DISPLAY ' MAGAZIN! CLOSE DESFACERI STOP RUN TEST DEN-M « VALOAH * VAL-TOTALA-E IF COD-MAGAZIN «= COD-M-THEN ' ADD VALOARE ТО VAL-TOTALA READ DESFACERI AT END MOVE ТО SF LINK assign a>dvt:mt»vs:mtiman LABEL A'FN:'DESFACERI* RUN EOJ PROGRAMUL XVIII Actualizarea, care implică consultarea fișierului, constă în ștergeri sau modificări de articole Pe disc pot fi organizate două tipuri de fișiere secvențiale: — fișiere secvențiale continue (numite, în mod curent, fișiere secvențiale), în cazul în care articolele sînt înregistrate succesiv în zone distincte ale suportului, rezervate numai acestor fișiere; — fișiere secvențiale înlănțuite, în cazul în care articolele sînt înregistrate pe suport, succesiv sau nu, în zone rezervate mai multor fișiere (care alcătuiesc multifișiere pe disc), numite zone partajate Articolele pot fi de format fix sau variabil Fiecărui articol, i se poate asocia, la crearea fișierului, un indicator de ștergere ÎS Prezența indicatorului de ștergere trebuie cerută în cartela de comandă FILE, prin argumentul MFF: (DLC) Articolelor de format variabil li se asociază, la crearea fișierului, baiți, primii doi reprezentînd lungimea articolului La (fig XVIII i) Atît articolele de format fix cît și cele de format variabil pot fi grupate în blocuri Deoarece scrierea/citirea pe/de pe disc se realizează de la începutul -А— An‘et Antet Fig XVIII a articole du format fix; b — articole de format variabil ținui sector, blocurile ocupă un număr întreg de sectoare (care trebuie să fie di vizor al numărului de sectoare care alcătuiesc un cilindru) Partea din bloc caie conține efectiv informații se numește pagină; lungimea unei pagini este cel mult egală cu lungimea blocului Fiecărei pagini i se asociază baiți (antet) care reprezintă informații de control, înregistrate și utilizate de SGF pentru exploatarea fișierului în cazul fișierelor secvențiale înlănțuite, întrucît articolele pot fi înregistrate, în pagini diferite ale zonei partajate (SGF-ul alocînd dinamic aceste pagini fișierelor ce compun multifișierul), paginile sînt înlănțuite prin adrese Identificarea și protecția fișierelor pe disc magnetic se realizează printr-un sistem standard de etichete grupate în primul cilindru al volumului (zona de control al volumului) Fiecărui fișier aflat pe volum îi sînt asociate: o etichetă HDR , care conține informațiile de identificare a\ fișierului, și o etichetă HDR , care conține informații privind structura fișierului Multifișierelor disc li se asociază cîte o etichetă HDR și HDR și, pentru fiecare fișier membru, cîte o etichetă HDR (care conține informațiile de identificare a acestora) b Tipuri de prelucrări Pentru a ilustra prelucrarea fișierelor secvențiale pe disc magnetic se consideră exemplele prezentate în continuare • Fie un fișier ne cartele REȚE FE-( AR FELE care conține informații • Fie un fișier pe cartele REȚ E ГE-C A R FEL privind rețetele de fabricație a produselor unei întreprinderi industriale, întreprinderea are trei secții, în cadrul cărora se fabrică produse distincte, în alcătuirea unui °pro>clupot intra minimum trei materiale și maximum opt materiale în fișierul REȚETE-CARTELE, pentru fiecare produs există un grup de minimum patru și maximum articole ^ rimul articol din grup conține datele de identificare a ’ - — codul produsului ( caractere numerice) și tere alfanumerice) Următoarele articole di toare la „„ material care intră in alcătuirea produsului: codul produsului ( caractere numerice), codul materialului produsului: codul secției (l caracter numeric), ‘ ' denumirea produsului ( carac- corecte, se cere ca din ar S nd căvXlk datelor fișierului REȚETE-CARTELE sînt — ticolele acestui fișier, să se creeze un fișier secvențial ge dist REȚETE-DISC, cu articole de format variabil? ? o „arteră feare se regăsește in toate articolele) ce va conține codul secției, îi LUMS^“d Ș O parte variabilă - va conține, pentru fiecare material, codul, denumirea și procentul (fiR- COD- SEC TI E D COD-PRODUS-: DEN UMlHfe-PRODUS-U HR-MAfEMALE- -^ РАНГЕ-VARIABILA v/ articolul este scris, iar execuția programului continuă cu execuția instrucțiunii ce urmează după punct; în caz contrar, execuția programului continuă cu instrucțiunea (instrucțiunile) indicată în clauza INVALID KEY Exemplu în programul XVIII este descrisă operația de creare a fișierului secvențial-indexat BIBLIOTECA, din articolele fișierului pe cartele FIȘIER-CARTI Articolele fișierului pe cartele conțin date referitoare la cărțile existente într-o bibliotecă și anume: codul cărții, titlul cărții, autorul și numărul de exemplare și sînt ordonate crescător după valorile datei COD-CARTE-C Cheia de identificare a articolelor este data COD-CARTE-B pe suport, ,a Ла * figura XVIIL - unde' > , , și reprezintă valorile i a cheii articolului scris articolul este scris, iar execuția programului continuă e Consultarea fișierelor secvențiale-indexate se poate realiza atît în acces secvențial cît și în acces^direct Consultarea în acces secvențial constă în transferul succesiv al articolelor din fișier în memorie, începînd cu primul articol Această operație este descrisă de instrucțiunea READ pentru acces secvențial Consultarea în acces direct constă în citirea numai a anumitor articole, a căror poziție în fișier este determinată prin intermediul tabelelor de indecși Pentru a citi un articol în acces direct, în zona asociată datei definită SYMBOLIC KEY trebuie să se înregistreze valoarea cheii acestuia De exemplu, pentru consultarea în acces direct a fișierului prezentat în figura XVIII , în vederea citirii articolului a cărui cheie are valoarea se realizează următoarele operații: — atribuirea valorii datei definită SYMBOLIC KEY; Adreefi Adreed Adreefl Adreed Cheie Adreid Index Antei Cheie Pagina I Pagina Pagina Pigina Adresa de înlănțuire Partea de dep&eire Fig ХѴІІІ EOF Xile coholISOQ,PN!FLLIX DIVISION PROGRAM-ID І-ѴЦІ , LNVIRONNLNT DIVISION CONfIGURA ION SECTION INFU -OUTFUT SECTION FILE-CONTROL SELECT Uw Tn?FART ASSIGN ™ S SIN A'Vrr^^HMlFWTTir rr OKbApIZAriON HDEXED DATA DlVISlăr^ ^UERTIAL RFLd^t RTF ISTOD-CaR ГЕ-Ѵ FILE SECTION lobol»an: isoq и-n:felix FD fișier-carii recording Cl ART-C CUD-CARTE-C TITLU-C AUTOR-C NR-EXEMPLARE-C FD BIBLIOTECA RECORDING BLOCK ART-B COD-CARTE-B TITLU-B AUTOR-B NR-EXEMPLAKE-B LABEL RECORD OMITTLD PIC ( ) PIC X( ) PIC A( )♦ PIC ( ) F LABEL RECORD STANDARD CONTAINS RECOKDS PIC ( ) COMP- PIC X( ) PIC A( ) PIC ( ) COMP- UORKING-STORAGE SECTION $F PIC VALUE EROARE-CHEIF PIC AR -AK PIC ( ) VALUE ₽RjK£DURE DIVISION FRGGRAM-PRINCIPAL OPEN IMPUT FISIER-CAKTI OUTPUT BIBLIOTECA READ FISIER-CARTI А Г END MOVE TU SF PERFORM SCRIE UNTIL SF = DISPLAY 'IN FIȘIERUL BIBLIOTECA S-AU SCPISî CLOSE FISIER-CARTI BIBLIOTECA STOP RUN S^RJE• Z- NOVE *LOD-CARTE-C ТО C D-CAK E-B \ NOVE ITLU-C ТО TITLU-B |«Н>КЛМЕЬ X\ ІП s - - determinarea indexului, din tabela detaliată, a cărui cheie are valoarea mai mare decît : — căutarea, în pagina a cărei adresă este specificată de indexul determinat anterior, a articolului pentru care valoarea cheii este Observație în carul în cave fișierul conține tabele de indecși organizate la mai multe nivele, căutarea unui articol începe cu consultarea tabelei rezumat (detaliată} de nivel maxim Operația de citire în acces direct se indică prin instrucțiunea READ pentru acces direct: READ nume-fișier [INTO- nume-dată] INVALID KEY instrucțiune în cazul în care articolul este găsit în fișier, execuția programului continuă cu instrucțiunea ce urmează instrucțiunii READ; în caz contrar,’execuția continuă cu instrucțiunea (instrucțiunile) indicată în clauza INVALID KEY Exemplu Programul XVIII realizează consultarea în acces direct a fișierului secvențial-indexat BIBLIOTECA, creat prin programul XVIII Valorile cheilor de identificare a articolelor ce sînt citite sînt furnizate de articolele fișierului pe cartele FISIER-CHEI Deoarece valorile cheii de identificare a articolelor sînt reprezentate în zecimal-împachetat, cheia de acces a fost definită data COD-CARTE-W, descrisă în secțiunea WORKING Pentru fiecare articol citit din fișierul BIBLIOTECA, se înregistrează la imprimantă un rînd care conține codul cărții, titlul și autorul f Actualizarea fișierelor secvențiale-indexate în cadrul acestei prelucrări se pot realiza, funcție de modul de acces, următoarele operații: — modificarea și/sau ștergerea unor articole din fișier, în acces secvențial; — modificarea, ștergerea și/sau adăugarea unor articole din/în fișier, în acces direct Indiferent de modul de acces, operațiile de modificare și ștergere sînt precedate de o operație de consultare a fișierului, prin care, articolul ce urmează a fi modificat sau șters este introdus în memorie Această operație este descrisă de instrucțiunea: READ nume-fisier [INTO nume-dată] AT END instrucțiune г- - - dacă actualizarea se realizează în acces secvențial, și de instrucțiunea: READ nume-fișier [INTO nume-dată] INVALID KEY instrucțiune dacă actualizarea se realizează în acces direct • Operația de rescriere în fișier a unui articol ce a fost modificat se indică prin instrucțiunea REWRITE: REWRITE пите-articol [FROM INVALID KEY instrucțiune Instrucțiunea (instrucțiunile) citată în clauza INVALID KEY va fi executată în cazul în care, prin modificarea valorilor datelor articolului citit anterior din fișier, valoarea cheii de identificare este schimbată • Operația de ștergere a unui articol este indicată prin instrucțiunea DELETE: DELETE nume articol JUG COBOL?ANîisoo»pnjfelix COmPILE COBOL IO DIVISION» PROGRAM-ID♦ P V iI ♦ ENVIRONMENT DIVISION CONFIGURA ГION SECTION» INPUT-UUTPUT SECTION» FILE-CONTROL• LLECI BIBLIOÎECA ASSIGN TU AAD ORGAN[ZA ГION INDEXED ACCESS RANDUM RECORD COD-CARTE-B SIMBOLIC LVMCa ' * ПАХIMUM-EDITARE PIC + GO ТО SMAXIM-EXIT* ciclu-maxim* IF MAXIMUM, THEN , MOVE NR SMAXIM-EXIT♦ EXIT* AFIȘARE SECTION START-AFI ARE• PERFORM CRIE-NUMERE*VARYING-І FROM BY"t UNTIL I > MOVE MAXIMUM ТО MAXIMUM-El'ITARE niSPLAY ' NUMĂRUL MAXIM - ' MAXIMUM-EBITARE GO ТО AFI ARE-EXIT ®CRIMnU£MNREU> ТО MAXIMUM-EBITARE SlOPLAT ‘ « Nkam()L xjx v * SIKUL UE NUMERE Г programarea sistemului de calcul b A doua metodă, care permite obținerea unei structuri arborescente cu două nivele, necesită gruparea instrucțiunilor în secțiuni distincte (care să realizeze funcții distincte ale programului) între secțiuni trebuie să existe o ierarhie, care este pusă în evidență prin intermediul unor nume/e de prioritate, ce sînt asociate secțiunilor Numerele de prioritate pot lua yalori în intervalul [ , ] și sînt indicate în titlul secțiunilor, conform formatului: nume-secțiime SECTION număr-prioritate Pot exista mai multe secțiuni cu același număr de prioritate, iar dacă unor secțiuni nu le-au fost atribuite'astfel de numere, compilatorul le atribuie prioritatea Pe baza numerelor de prioritate, compilatorul va iniția segmentarea programului Prin compilarea unui program astfel secționat, sînt generate: unul sau mai multe module de program (care este funcție de numerele de prioritate asociate secțiunilor), un modul de date și un număr de module de date comune (care este funcție de numărul fișierelor definite în program) Conținutul și numele atribuite modulelor-de date și de date comune sînt stabilite după aceleași reguli ca și în cazul modulelor de același tip, obținute prin compilarea unui program nesecționat Un modul de program poate conține: instrucțiunile în limbaj-mașină ce corespund instrucțiunilor din secțiunile cu numere de prioritate mai mici decît — caz în care numele modulului este stabilit adăugind la primele șase caractere ale numelui programului, sau instrucțiunile în limbaj-mașină ce corespund instrucțiunilor din una sau mai multe secțiuni ce au același număr de prioritate, mai mare decît —caz în care numele modulului este stabilit prin adăugarea la primele cinci caractere ale numelui programului a caracterului °/ și a unui număr format din două cifre, care reprezintă diferența dintre numărul de prioritate al secțiunii (secțiunilor) și Totodată, compilatorul asociază fiecărui modul de program o cartelă SEG, care indică numele ce va fi atribuit segmentelor de program și de date generate ’ Editorul de legături generează din fiecare modul un segment ce corespunde tipului modulului Segiftentul de program, care conține modulul de program ce corespunde secțiunilor cu numere de prioritate mai mici decît , reprezintă segmentul rădăcină și, împreună cu segmentul de date, vor primi ca nume, numele modulului de date, iar segmentele de date comune primesc numele modulelor de date comune pe care le conțin Numele segmentelor de program care conțin modulele de program ce corespund secțiunilor cu numere de prioritate mai mare decît sînt stabilite astfel: la primele cinci caractere ale numelui programului se adaugă caracterul % și un număr format din două cifre, care reprezintă diferența dintre numărul de prioritate al secțiunilor și Exemplu Se consideră următorul program COBOL ID DIVISION PROGRAM-ID ARBORE FILE-CONTROL SELECTFIS-BAND ASSIGN ТО AAD SELECT FI S-DISC ASSIGN ТО BMT, PROCEDURE DIVISION PRIMA SECTION DESCHIDE OPEN INPUT FIS-BAND OUTPUT FIS-DISC DOI SECTION TREI SECTION PATRU SECTION CINCI SECTION SASE SECTION în urma compilării și editării legăturilor acestui program sursă, se obține un program IMT alcătuit din segmente (fig XIX l) SEGMENTE INDEPENDENTE > Segmentele generate sînt dispuse pe două nivele La primul nivel sînt situate segmentul de program ce corespunde secțiunilor cu numere de prioritate mai mici decît , segmentul de date și segmentele de date comune; aceste segmente alcătuiesc rădăcina programului La al doilea nivel sînt situate celelalte segmente de program, numite segmente independente, care vor fi încărcate și executate în aceeași zonă de memorie Segmentele independente au acces la segmentul de date și la segmentele de date comune De asemenea, segmentele independente- pot apela execuția •unor secvențe de instrucțiuni din segmentul rădăcină La nivelul programului sursă, comunicarea între secțiuni se realizează prin instrucțiuni GO ТО sau PERFORM (în care pot fi citate nume de paragrafe sau de secțiuni) • » Deoarece segmentele independente nu pot coexista în memorie, utilizarea instrucțiunii PERFORM impune respectarea următoarelor reguli: — o instrucțiune PERFORM, aflată într-o secțiune cu număr de prioritate p(p > ) nu poate apela paragrafe din secțiuni cu numere de prioritate mai mari decît p (în schimb, poate apela paragrafe din secțiuni cu numere de prioritate egale cu p sau mai mici decît ); — o instrucțiune PERFORM aflată într-o secțiune cu număr de prioritate mai mic de , poate apela paragrafe conținute într-o singură secțiune, cu număr de prioritate mai mare decît Pentru optimizarea programului, este indicat ca secțiunile cu numere de prioritate mai mari decît să grupeze instrucțiunile executate mai puțin frecvent; în acest fel se micșorează timpul necesar încărcării în memorie a segmentelor independente ce corespund acestor secțiuni Exemplu în programul XIX este prezentată rezolvarea, prin metoda de segmentare prezentată anterior, a problemei enunțate pentru programul XIX Corespunzător celor trei unități de program (CITIRE, SMAXIM, și AFIȘARE) prezentate în programul XIX , diviziunea de prelucrare a programului XlX a fost structurată în trei secțiuni care au același nume ca al unităților de program și numere de prioritate , și, respectiv, SORTAREA FIȘIERELOR ÎN COBOL Sortarea reprezintă operația de aranjare a articolelor unui fișier într-o anumită ordine (crescătoare sau descrescătoare), în funcție de valorile uneia sau ale tnai multor date ale articolului, numite chei de sortare Cheile de sortare sînt stabilite de programator în funcție de prelucrările la care va fi supus fișierul obținut prin sortare Elaborarea algoritmului de sortare și transcrierea lui într-un limbaj de programare nu ridică probleme deosebite dacă volumul fișierului de sortat și numărul cheilor de sortare sînt mici, întrucît, în astfel de situații, sortarea se poate realiza prin utilizarea unei zone de lucru ce aparține memoriei centrale Creșterea volumului fișierului de sortat și a numărului cheilor de sortare complică algoritmul; deoarece capacitatea limitată a memoriei centrale impune ca zona de lucru să aparțină unei memorii auxiliare (bandă sau disc magnetic) Pentru simplificarea programării operațiilor de sortare destul de frecvent în aplicațiile de prelucrare automată a datelor — a fost conceput un ansamblu de module (de sortate), care au fost incluse în Biblio- care apar le anunSifnrn f • fSta”dard »că se alege discu ca sup acest'caz, dimensiunea fișierului de’manevră, și secvențial-inlăn(uiță (în zonă partajăj ‘ trebuie să fie de ori mai mare decît dimensiun în cazul metodei oscilante fișierul de manevră-care are ca suport discul-este structurat în топоіопЦ de dimensiuni fixe A’ reprezintă ce pot conține N A' , A mic întreg p itiv care Xți™Mi°Tn‘ "™aral erea,e în eta>” a sortării) ocuna unul sau mai multe volume, iar dimen- Fișierul de manevrăp « te mare decît dimensiunea fișierului de s iu nea sa trebuie sa iu o » intrare — Etapa exploatării fișierului de manevră în care monotonia finala — obținută în etapa anterioară într-una din zonele fișierului de manevră — este înregistrată pe suportul fișierului de ieșire b Cheile de sortare Ordonarea articolelor fișierului de intrare se realizează în funcție de conținutul uneia sau al mai multor chei de sortare Numărul maxim de chei este , iar suma lungimilor zonelor ce le sînt asociate nu trebuie să depășească locații Fiecare cheie trebuie să ocupe aceeași poziție în cadrul tuturor articolelor și să aibă o lungime fixă Pentru fiecare cheie se poate stabili sensul sortării: crescător sau descrescător Valorile datelor ce reprezintă cheile de sortare pot fi reprezentate în cod EBCDIC, în zecimal despachetat (numere cu semn), în zecimal împachetat, în cod complementar sau în virgulă mobilă simplă sau dublă precizie c Descrierea operației de sortare Operația de sortare este definită în COBOL prin intermediul unor clauze și instrucțiuni specifice Avantajul utilizării limbajului COBOL pentru realizarea operației de sortare constă în faptul că permite introducerea unor prelucrări speciale în prima și ultima etapă a acestei operații Astfel, pentru constituirea monotoniilor pot fi utilizate articole ce provin dintr-un fișier unic (avînd ca suport banda sau discul și organizarea secvențială), definit în programul COBOL fișier de intrare al sortării, sau articole ce provin din mai multe fișiere De * asemenea, prin exploatarea fișierului de manevră, articolele acestuia pot fi înregistrate într-un fișier unic (avînd ca suport banda sau discul și organizarea secvențială), definit în programul COBOL fișier de ieșire al sortării, sau în mai multe fișiere Dacă articolele supuse operației de sortare nu provin din fișierul de intrare al sortării, sau dacă aceste articole nu sînt înregistrate după sortare în fișierul de ieșire al sortării, în programul COBOL este necesar să se definească, în cadrul unor secțiuni distincte ale diviziunii de prelucrare, proceduri de constituire sau de exploatare a fișierului de manevră Descrierea în limbajul COBOL a fișierului de manevră se realizează într-un mod particular; celelalte fișiere care intervin în prelucrare se descriu în mod obișnuit • în secțiunea INPUT-OUTPUT, fișierului de manevră trebuie sa-i corespundă o frază SELECT, al cărui format general este următorul; ІМТ] RD MD? ZP ADJ I Prin fraza SELECI fișierului de manevră i se asociază un nume (fișier-manevră), un identificator de exploatare (idex), i se precizează suportul și organizarea; opțiunea ZP indică faptul că suportul fișierului de manevră este discul magnetic, iar organizarea este secvențial-înlănțuită (în zonă partajată) Dacă suportul indicat pentru fișierul de manevră este banda magnetică, compilatorul COBOL va apela din BSS modulele de sortare care realizează interclasarea monotoniilor prin metoda polifazelor: în caz contrar, va apela •modulele de sortare care realizează interclasarea monotoniilor ‘prin metoda oscilantă SD fișier-manevră DATA nume-artic'ol printr-o nibrică \n LF’ , » SD FISIER-MANEVRA DATA RECORD IS ART-M ART-M» COD-MAGAZIN PIC » , FILLER PIC XC )» FD FISIER-IESIRE RECORDING F LABEL RECORD STANDARD BLOCK RECORDS» ART-E PIC X( )« PROCEDURE DlVțSION» START-SORT-STOP♦ SORT FISIER-MANEVRA ON ASCENDING’KEY COD-MAGAZIN USING FIȘIER-INTRARE GIVING FISIER-IESIRF STOP RUN LINK ASSIGN AfDVTJMTfVSÎMTImAN LABEL AfFNJ'DESFACERI' JNIT DVTîMT»VSJMT MAN ♦ INIT DVȚJMTfVSÎMT MAN ♦ ASSIGN В f DVT MT f VS î МТ MANIMT MAN+MT MAN ♦ LABEL В гFN:'MANEVRA' LABEL CfFNJ'DESFACERI-SORT' » RUN EOJ PROGRAMUL XIX din mai multe fișiere în^tia^Hle™ man^ ?ot Proveni din «nul sau trebuie să realiză L • fl?ierului de manevră, procedura de intrare colelor fișierului d₽> ma a-e constltuirea lor conform structurii arti-modulelor de sortare (înTede^ea găinării toJ î^mlnot^*^^^ instrucțiunii RELEASE, al cărui%^ ^Ua/^e °Ші) [FROM RE LE ASE nume-art ic ol unui tip de articol al fișierului d cu oțiunea FROM a instrucțiunii unde: nume-articol reprezintă numele manevră; — opțiunea FROM este similară WRITE • Procedura de ieșire (OUTPUT PROCEDURE; conține instrucțiunile prin care se prelucrează articolele fișierului de manevră Aceste instrucțiuni sînt grupate în cadrul uneia sau mai multor secțiuni consecutive (prima fiind desemnată prin mime-secțiune- iar ultima, prin nume-secțiune- ) Accesul la articolele fișierului de manevră se realizează prin intermediul instrucțiunii RETURN, al cărui format general este: RETURN fișier-manevră [INTO nume-dată] AT END instrucțiune Execuția unei instrucțiuni RETURN realizează aceleași operații ca ș instrucțiunea READ pentru acces secvențial Prelucrarea articolelor fișierului de manevră consta, in general, în transferarea lor — totală sau parțială — cu sau fără modificarea structurii, în unul sau în mai multe fișiere тѵ,пІІТ Prin execuția unei instrucțiuni SORT in care figurează opțiunile IN FU PROCEDURE si OUTPUT PROCEDURE se realizează următoarele operații: — deschiderea fișierului de manevră > - execuția instrucțiunilor procedurii de intrare; — interclasarea monotoniilor, — execuția instrucțiunilor procedurii de ie,ire închid prea fișierului de manevra După efectuări acestor operații -M programulu contmuă cu instrucțiunea ce urmează instrucțiunii Observații SORT pot fi utilizate combinat opțiunile USING sau GIVING cu — în instrucțiunea SOI P ,TP T PROCEDURE opțiunile INPUT PROCEDURE sau trebuie sa conțin» secțiuni comune z * “**,co TO- PERFORM) In afara lor care nu aparțin procedurilor de intrare >au de iejire — Secțiunile diviziunii dc i pRRFORM) iu procedurile de intrare sau nu trebuie si conțină instrucțiuni de salt ( ■ • • de Іе’ІГе- я ie intrare trebuie sA conții* cel puțin o instrucțiune RELEASE iar pro-— Procedura de iidiar > RETURN cedura de iețire, cel de'ieșire nu trebuie sA apar» instrucțiunea SORT - în proceduri e Exemplu, Programul XIX creează fișierul secvențial-indexat BIBLIOTECA, din articolele fișierului pe cartele FIȘIER-CARTI (vezi programul XVIIL ) Comparativ cu programul XVIII acest program realizează în plus, ordonarea articolelor fișierului pe cartele, crescător după valorile datei COD-CARTE Citirea articolelor fișierului FIȘIER-CARTI este realizată în procedura INTRARE, iar scrierea articolelor în fișierul BIBLIOTECA, în procedura IEȘIRE ÎNTOCMIREA RAPOARTELOR PRIN INTERMEDIUL EDITORULUI COBOL * * eLratiei de rezumare se realizează prin două ordine: RESUME ui cilindru al volumului îi cores- va- și DVOI Formatele acestor ordine sînt următoarele: % RESUME , S assssss [, ON: 'nume/'] nrJ DV: MT RD I MD I AD MT RD MD AD Observație în cadrul unei lucrări, succesiunea ordinelor transmise programului de inventariere pen:ru realizarea operației de rezumare este: RESUME, DVOL, END • • • * ‘ч • Exemplul următor prezintă ordinele pentru obținerea rezumatului ur volum disc și al unui volum bandă JOB REZ, AN:XXXX, PN: Y SYSRUN INVFICH RESUME DVOL DVT:AD, VS:AD MAN RESUME DVOL DVT: MT VS MT MAN END EOT CAPITOLUL XXI GENERATORUL DE PROGRAME DE SORTARE GENERALITĂȚI Generatorul de programe de sortare este un program utilitar — catalogat în BUS sub numele SMGEN — care, pe baza unor parametri transmiși de programator (parametri ce definesc o anumită operație de sortare), selectează din BSS modulele de sortare corespunzătoare (vezi subcapitolul al capitolului XIX), generînd un program de sortare specific Acest program, elaborat în format binar translatabil, este supus în continuare operației de editare a legăturilor, rezultînd un program executabil care poate fi catalogat într-o bibliotecă IMT — în vederea unei execuții ulterioare — sau executat imediat ORDINELE TRANSMISE GENERATORULUI Informațiile transmise de programator generatorului de programe de sortare se referă, în principiu, la fișierele care intervin în prelucrare și la cheile de sortare Aceste informații sînt furnizate prin intermediul unor ordine înregistrate pe cartele Principalele ordine transmise generatorului sînt: GEN, INPUT, SCRATCH, OUTPUT și KEYS Ordinul GEN indică numărul căilor de sortare, metoda ce va fi utilizată în etapa de interclasare a monotoniilor, biblioteca IMT în care va fi eventual catalogat programul generat Format general: {POLY I L WAY: «rZ OSCT J • I I ,DVT; ■ 'MT RD MD AD к J / f > ,VS:ssssss • ,LN: nume! ț I * [MT • ,GN:nr , *VN: nr t FN\nume ,DV: SMGEN F N î ' M A N E V R A' % OUTPUT C > DVT t AD , RCF î VAR, RCS J f BFSî ! % ASSIGN' C r D V T î А В•V S t A D M % L A BEL C, F N î ' R F T E T E S' ? A N î A t! Y , S Z: "ă keys Ki: ( >i,asc: % END » Ж » R U N ♦ EOJ PROGRAMUL XXI l, JOB S RT >AN♦ISOO•PNîANS , inii dvt:mt»vs:mt man SYSRUN SMGEN • GEN SORT OSCT>WAYÎ INPUT A,DVT î AD,RCF î VAR,RCS î ,BFS J ASSIGN A,DVTJAD»VSîAD MAN LABEL A>FNI'RETETE' SCRATCH BrDVTJAD ASSIGN В,DVT JAD,VS î AD MAR LABEL B»FNÎ ' MANEVRA >AMJANY,SZ: output c»dvt:мт,rcf:var,rcs: , ASSIGN С»DVT:МТ,VSJMT MAN LABEL C,FNÎ RETETES KEYS Kl:( > rASO rK :( » »ASC) END RUN EOJ PROGRAMUL XXI CAPITOLUL XXII PROGRAMUL DE ÎNTREȚINERE A FIȘIERELOR SI VOLUMELOR în practică apare frecvent necesitatea efectuării unor operații de întreținere și control al datelor înregistrate și păstrate pe suport magnetic Sistemele de operare ale calculatoarelor de tipul FELIX C, asigură definirea și realizarea acestor operații, prin intermediul programului utilitar de întreținere a fișierelor și volumelor, program catalogat în BUS sub numele MAINT w* FUNCȚIILE PROGRAMULUI Unitatea de prelucrare pentru programul $ $ întreținere este volumul (rola de bandă, pachetul de discuri) sau fișierul (organizarea acestuia putînd fi: nedefinită, secvențială, secvențial-indexată sau?selectivă), iar principalele funcții realizate se referă la: • ' f*,x — copierea fișierelor și volumelor; — salvarea fișierelor și volumelor; — restaurarea fișierelor și volumelor, — reorganizarea fișierelor secvențial-indexate; — reorganizarea fișierelor selective ORDINELE ADRESATE PROGRAMULUI DE ÎNTREȚINERE Există două categorii de ordine interpretate de programul de întreținere: — cele care indică funcțiile solicitate; — cele care descriu aceste funcții Aceste ordine sînt înregistrate pe cartele, conform sintaxei specifice programelor utilitare a Descrierea fișierelor și volumelor In prelucrările efectuate de programul de întreținere intervin două fișiere, două volume sau un fișier și un volum Aceste unități de prelucrare sînt definite prin patru ordine: OLDFLE, NEWFLE, OLDVOL, NEWVOL Format general: DV: fOLDFLE % I NEWFLE AM: ANYU NEWI AD MD MT nr DVT: RD AD MD MT , NS' ssssss FN:numel [,GN:nrJ] [,VN:nr ] [, N:numc ] DV: O,' / OLDVOL ' RD' AD MDI MT nrl RD) AD MD MT »,VS:ssssss r,ON :numelj b Descrierea operațiilor Copierea unui fișier sau volum se indk orin ordinul COPY: ’ % СОРУ SEO UND Prin copiere unui fișier sau unui volum i se schimbă (convertește) suportul de exploatare Copierea unui fișier secvențial nu este restricționată de tipul suportului (adică se pot copia fișiere de pe bandă pe disc și invers) în schimb, ceblahe tipuri de fișiere (nedefinite, secvențial-indexate și selective) nu pot fi c ; decît pe suporturi de același tip Observație > Fișierele secvențial-indexate și selective sînt considerate de către programul de întreținere ca fiind de organizare nedefinită Salvarea este o operație care are sens numai pentru volumele disc sau fișierele nedefinite avînd ca suport discul Eâ constă în stocarea temporară a conținutului acestora pe bandă magnetică, sub forma unui fișier de organizare nedefinită (care nu poate fi exploatat direct) Prin această operație se evită utilizarea pachetelor de discuri pentru păstrarea informațiilor Ordinul prin care se indică realizarea unei operații de salvare este SAVE VOL Restaurarea este operația inversă salvăiii» Constă în înregistrarea pe volumul inițial, în scopul mațiilor ce au făcut obiectul unei salvări și se mdică prin ordinul KliSl: | VOL I % kestUe) JX’J! dipâ^n-'ii'«țtaj* i“vaH late (șterse) di» principali Se indică prin ordinul S RG: % ISORG programarea sistemului de calcul Reorganizarea unui fișier selectiv constă in eliminarea articolelor invalidate din partea de depășire, regruparea articolelor citite mai frecvent din partea de depășire înpartea principală (pentru a efectua această operație programul de întreținere are în vedere valorile contorului de actualizare asociat fiecărui articol) și rescrierea fișierului obținut într-o zonă distinctă, pe același volum sau pe un alt volum Operația de reorganizare se indică prin ordinul RDORG: % RDORG DLC[,LIST] unde: DLC — indică poziționarea contorului de actualizare la valoarea zero; LIST — indică listarea numărului de articole din fiecare căsuță Exemplele următoare ilustrează descrierea operațiilor prezentate JOB M ,AN: SOO,PN:FELIX * * COPIERE FIȘIER INIT DVT :AD,VS:AD IMAN SYSRUN MAINT % COPY FLE % OLDFLE DVT:MT,VS:MT MAN,FN:'FISBAND' % NEWFLE DVT:AD,VS:AD MAN,FN:'FISDISC',AM:ANY,SZ: O % END EOJ * JOB M ,AN:IS ,PN:FELIX ’ * SALVARE VOLUM ♦ ’ INIT DVT:MT,VS:MTIMAN SYSRUN MAINT % SAVE VOL % OLDVOL DVT:AD,VS:AD MAN % NEWFLE DVT:MT,VS:MT MAN,FN:'FISSALVAT' % END EOJ JOB M ,AN:ISOO,PN:FELIX Ж * RESTAURARE VOLUM INIT DVT:AD,VS:ADIMAN SYSRUN MAINT % REST VOL % OLDFLE DVT:MT,VS:MT MAN,FN:'FISSALVAT' % NEWVOL DVT:AD,VS:ADIMAN % END EOJ JOB M ,AN:IS ,PN:FELIX * REORGANIZARE FIȘIER SECV-INDEXAT SI SELECTIV SYSRUN MAINT ISORQ % OLDFLE DVT:AD,VS:ADIMAN,FN: SECVIND',GN: ,VN:O % NEWFLE DVT:AD,VS:ADIMAN,FN:'SECVIND',GN:, VN:O, ,AM:ANY,SZ: % RDORG DLC LIST % OLDFLE DVT:AD,VS:AD MAN,FN /SELECTIV' % NEWFLE DVT:AD,VS:AD MAN,FN:'SELECTIV'>AM:ANY,SZ: O,GN END EOJ CAPITOLUL XX Î UTILIZAREA BIBLIOTECILOR GENERALITĂȚI O aplicație de prelucrare automată a datelor conține, în general, un număr mare de programe a căror manevrare — în fazele dc testare și exploatare — devine dificilă atunci cînd suportul de înregistrare a acestor programe este cartela înlăturarea acestui neajuns se poate realiza prin înregistrarea acestor programe pe suporturi magnetice, în cadrul unor colecții organizate numite biblioteci, care pot fi gestionate prin intermediul unui program specializat al sistemului de operare, numit bibliotecar Biblioteca reprezintă o colecție de programe de același format, numite cărți Corespunzător formatelor programelor există trei tipuri de biblioteci: — bibliotecă sursă, în care o carte reprezintă un program sursă sau o secvență a unui program sursă; — biblioteci ВТ, în care o carte reprezintă rezultatul unei singure execuții a unui program de traducere; — biblioteci IMT, în care o carte reprezintă un program executabil (IMT), alcătuit din unul sau mai multe segmente Suportul bibliotecilor poate fi discul (suportul principal) sau banda magnetică Din punctul de vedere al SGF-ului — prin intermediul căruia se realizează operațiile de intrare/ieșire necesare gestionării bibliotecilor — biblioteca reprezintă un multifișier, iar cărțile bibliotecii, fișiere membre ale acestuia Biblioteca este identificată prin nume (succesiune de maximum caractere, primul fiind o literă), număr de generație și număr de versiune Cărțile unei biblioteci sînt identificate prin nume și număr de actualizare Numele cărții reprezintă o succesiune de maximum caractere, primul fiind o literă, iar numărul de actualizare (care permite identificarea a două sau a mai multor cărți care se află în aceeași bibliotecă și au același nume) poate lua valori între și în cazul bibliotecilor organizate pe disc (care fac obiectul prezentării ce urmează), pentru regăsirea rapidă a cărților unei biblioteci, aceasta conține un fișier repertoriu (care este unul din fișierele membre ale multifișierului) în care sînt înregistrate, pentru fiecare carte numele, numărul de actualizare și adresa de început a cărții BIBLIOTECARUL a Funcțiile bibliotecarului Principalele operații realizate de bibliotecar ^program utilitar catalogat în BUS sub numele BIBLIO) sînt următoarele: — crearea unei biblioteci; — actualizarea unei biblioteci; • ' — imprimarea repertoriului unei biblioteci; -imprimarea unei citiți ' ’Ct'sto, "Perațn sc realizează prin intermediul unu' hrib , я‘ Рпп bibliotecarului Ordinele acestui limbaj sînt structn ite TABELUL XXIII I La alcătuirea programelor de control adresate bibliotecarului trebui să se țină seama de faptul că unui ordin de nivel m(m = , ) trebuie urmeze un ordin de nivel н- + E Crearea unei biblioteci constă în inserarea (catalogarea) uneia s mai multor cărU ta “na partajata afectată bibliotecii Cărțile se p ÎX<> alta, bibliotecă (de același tip) sau în fișierul de lucrări, pe Io te i complo'®»’* <> • Operația de inserare a unei cărți într-o bibliotecă (ca de altfel și celelalte operații efectuate asupra bibliotecii sau asupra cărților care o compun) trebuie să fie precedată dc deschiderea bibliotecii, care constă în verificai ca de către bibliotecar, a parametrilor de identificare a bibliotecii Acești parametrii sînt indicați dc programator în юг dinul OPNLIB: o/ /o DVT: OPNLIB t,LN:ntmc, ( DV: (RDl lMD , VS:ssssss |ad] (RDl |md \nr Iad I Isoul RBN| [,INIT] IMT | unde: — i reprezintă identificatorul de exploatare a bibliotecii; este o literă (asociată bibliotecii în momentul deschiderii) care trebuie să apară în toate ordinele ce definesc operații asupra bibliotecii sau componentelor sale; — FT precizează tipul bibliotecii; — INIT este argumentul care trebuie specificat cînd se inserează prima carte în bibliotecă, indicînd bibliotecarului faptul că trebuie să inițializeze zona ce va conține repertoriul bibliotecii • Operația de catalogare a unei cărți este definită prin ordinul INCLUDE: % INCLUDE OL:o, QF:nutneot [ONrwro], DL:d unde: — OL indică identificatorul de exploatare al bibliotecii sau al fișierului de lucrări care conțin cartea ce va fi catalogată; identificatorul de exploatare al bibliotecii este o literă, iar al fișierului de lucrări, * ; — OF și ON precizează numele și numărul de actualizare ale cărții care va fi catalogată; — DL indică identificatorul de exploatare a bibliotecii în care este inserată cartea Observație Semnificația primei litere din cuvintele cheie OLt OI\ OF și DL este: O — origine D — destinație — Dacă In ordinul INCLUDE se indică operația do catalogare a unei cărți care se află în fișierul de lucrări, cartelele ce compun cartea trebuie să urmeze imediat acestui ordin — Numărul de actualizare atribuit cărții catalogate este stabilit dc bibliotecar astfel: — dacă argumentul ON este utilizat numărul de actualizare va fi egal cu иго; — dacă argumentul ON lipsește numărul de actualizare atribuit este , dacă în bibliotecă nu mai există cărți cu același nume; în caz contrar, numărul do actualizare se stabilește edăugh-d la cel mai marc dintre ny merele do actualizare asociate cărților cu același nume — La catalogarea unei cărți in format sursă bibliotecarul numerotează liniile sursă începînd c ' valoarea inițială și rația • JOD L XXIII • Sfîrșitul unui program de control adresat bibliotecarului este marcat prin ordinul ENDLIB: % ENDLIB Programul XXIII exemplifică operația de creare a bibliotecii sursa SURSA, in care sînt catalogate două cărți — CARTEI și CARTEZ c Actualizarea unei biblioteci constă în adăugarea de noi cărți, înlocuirea, ștergerea sau modificarea unor cărți • Operația de adăugare se realizează prin ordinul INCLUDE a Operația de înlocuire a unei cărți dintr-o bibliotecă cu o altă carte aflată într-o altă bibliotecă sau în fișierul de lucrări, este descnsă prin огЛмь % REPLACE DL: d, DF: numed, [DN: wrfl OL: o, [ON: яго] Ullde: nr ПР si indică identificatorul de exploatare al bibliotecii care conținecă'rtea ce va li tnlocuW numele și numărul de actuaiuare ale acestei cărți: Mr ntifica torul de exploatare al bibliotecii sau al fișiOTi S- * cărți ЯЗ Observație Dacă noua carte sc află in fișierul dc lucrări, cartelele care o compun trebuie să urmeze ordinul REPLACE • Operația dc ștergere a unei cărți dintr-o bibliotecă este definită prin ordinul DELETE: % DELETE DL: dt DE: numed [,DN: • Efectuarea de modificări asupra unor cărți este posibilă în oricare din cele trei formate ale cărților (sursă, ВТ și IMT) și se realizează prin intermediul unor ordine specifice în cele ce urmează vor fi prezentate ordinele EDIT și MOD care definesc operația de modificare a cărților în format sursă Formatul ordinului EDIT este următorul: o o, OF: numeo [,ON: nro] RET LIST unde: — DEL!RET indică bibliotecarului faptul că vechea carte trebuie ștearsă reținută ; — NLST/LIST validează/invalidează tipărirea la imprimantă a noii cărți, obținută în urma operației de modificare Ordinul MOD are sintaxa următoare: % MOD nr [>nr ] Operația de modificare a unei cărți sursă constă în: — adăugarea (inserarea) unor linii sursă; în acest caz este, utilizat numai **- argumentul nr care indică numărul de secvență al liniei sursă după care se va efectua adăugaiea: — ștergerea unor linii sursă succesive; în acest caz este utilizat atît argumentul nr , care indică numărul de secvență al primei linii sursă ce va fi ștearsă, cît și argumentul nr , care indică numărul de secvență al ultimei linii sursă ce va fi ștearsă; — ștergerea unor linii sursă succesive și înlocuirea lor prin alte linii sursă; în acest caz sînt utilizate argumentele nr și nr t iar semnificația lor este cea prezentată anterior Liniile sursă adăugate sau cele care înlocuiesc o secvență trebuie să urmeze imediat ordinului MOD După efectuarea modificărilor specificate în ordinul (ordinele) MOD bibliotecarul numerotează liniile sursă ale noii cărți începînd cu valoarea l și rația d Imprimarea repertoriului Repertoriul unei biblioteci este o situație imprimată care conține următoarele informații: numele, formatul, generația și versiunea bibliotecii; numele și numerele de actualizare ale cărților Operația de imprimare a repertoriului este definită prin ordinul REPERT: % REPERT OL; o e Imprimarea unei cărți este descrisă prin ordinul DISPLAY: % DISPLAY OL: o, OF: numeo [,ON: nro] ЧшТігк sysrun’в iblio°UN:ANS ?'wîtJ s’,oS:«?Sn?^?SS,SUR“’ ','‘'-'i"'bF ou FD FIS-PERSONAL-BANDA-l RECORDINO F LABEL RECORD E AHDARD X REPLACE OL:« ,DF!CARTE »DL!A- l'L°CK ■REC Kt,S‘ Oi- ART-C» Я X X X NUMAR-MATRICOL nume: ADRESA DATA-NASTERXT SEX VIRSTA ' FUNCȚIE RETRIBUȚIE EDIT OLîA * OF:CARTEI>RET PIC V • PIC A( >« PIC X( b PIC ( )» PIC A» PIC ч PIC A( >» PIC- ( )л * HOP • R PIC N« , % REPERT OLÎA X ENDLIB EOJ PROGRAMUL XXIII datelor unui articol; realizează calculul expresiei Forma de imprimare este alfanumerică, pentru cărțile de format sursă, și hexazecimală, pentru cărțile de format ВТ sau IMT Programul XXIIL exemplifică operația de actualizare a bibliotecii SURSA și anume: — adăugarea cărții CARTE , care reprezintă o rubrică de descriere a unui fișier; — înlocuirea cărții CARTE printr-o carte care reprezintă ansamblul rubricilor de descriere a — modificarea cărții CARTEI — care Rl =д + B-C si tipărirea rezultatului Rl — astfel incit noua carte (care va primi același nume - CARTEI) să realizeze în plus calculul expresiei R =AxB și tipărirea rezultatului R ; — ștergerea cărții CARTEI, cu numărul de actualizare ; — imprimarea cărții CARTEI, cu număr de actualizare ; imprimarea repertoriului bibliotecii SURoA Catalogarea textelof sursă în biblioteci sursă poate fi realizată numai prin intermediul bibliotecarului vederea compilării, se reallmiă: «И- COBOL ■ “ RD) MD), VS’ wsss AD DVT: COPY' DVT: RD) MD}, nrl AD J , FN: ’miw/ SOU/нш/и ‘, GN: w> yN: tnl UN: mv '• — prin directiva FETCHS — în cazul textelor FORTRAN — al cărei lormat este: RD MD J, VS:ssss ss AD I ♦ FETCHS DV: ,FN: nu in el, GK:nr , VN: nr , VN: nr , LN: nume RD) MD } , nrl AD I unde numcl reprezintă numele bibliotecii, numc , numele cărții, iar nr , numărul de actualizare al cărții în cazul în care textul sursă apelat este un program complet, instrucțiunea COPY directiva FETCHS trebuie să urmeze imediat cartelei COMP LE • Catalogarea textelor (modulelor) obiect în biblioteci ВТ poate fi realizată prin intermediul bibliotecarului sau al compilatorului Apelarea cărților în vederea editării legăturilor se realizează prin cartela FETCHB Apelarea cărților provenite din compilarea programelor COBOL prezintă următoarea particularitate: — in cartela FETCHB trebuie indicat numele atribuit segmentului de program de către compilator la catalogarea acestuia în bibliotecă (nume anunțat prinț r-un mesaj la imprimantă), iar cartela FETCHB trebuie să fie precedată de o cartelă SEG în care se indică numele atribuit segmentului de program de către compilator (vezi capitolul XIX, subcapitolul ) • Catalogarea textelor (segmentelor) IMT în biblioteci IMT poate fi realizată prin intermediul bibliotecarului sau al editorului de legături Apelarea cărților în vederea execuției se realizează prin cartela FETCH CAPITOLUL XXIV UTILIZAREA PROCEDURILOR CATALOGATE buncțiunile produselor informatice mai ample sînt realizate, de regula prin execuția unor combinații de mai multe programe în scopul fixării acestor combinații sînt utilizate, frecvent, procedurile catalogate Ele rezolvă intr-o manieră simplă necesitățile de grupare a programelor în diferite variante de execuție, asigurînd, prin parametrizare, independența acestora fața de condițiile externe care se pot schimba de la o execuție la alta CREAREA PROCEDURILOR CATALOGATE O procedură catalogată reprezintă o secvență de cartele de comandă și, eventual, de date, catalogată într-o bibliotecă de tip sursă Catalogarea se realizează prin intermediul programului bibliotecar, într-o bibliotecă sursă utilizator sau a sistemului de operare (biblioteca sistem Z%PROC) în secvența de cartele ce alcătuiesc o procedură catalogată nu trebuie să figureze cartelele JOB, EOJ și EOF De asemenea, aceste cartele, fund tratate de către programul bibliotecar, nu trebuie să conțină caracterul ° în prima coloană Textul unei proceduri catalogate poate conține zone substituabile delimitate, la început și la sfîrșit, prin caracterul & în momentul creării procedurii aceste zone au o valoare inițiala, care poate fi sau nu mc difLatl atunci cînd procedura este apelată pentru execuție Din acest motiv, zonele substituabile se mai numesc și parametri formali Valoarea unui parametru formal reprezintă un șir de caractere alfanumerice (cu excepția caracterelor v-> și care nu pot fi înregistrate decît pe o singură cartelă Exemplul următor (programul XXIV l) pre^ntă catalogarea, in -teca sursă ROCAT, a două proceduri: ( АГАЫ și CA AL Prima „ocedură-CATALl-conține cartele de comandă pentru nima „oc u biblioteca BIBIMT, a două programe IM , CONSULT ’ care realizează crearea și respectiv, consultarea i jx CONTRACTE Parametrii substituabili SD ș’ SB cu baAniMAN si MT MAN au fost stabiliți astfel incit să se ’ xeiuTie, " programe de unMfUe P=ri ANîISOOrPNJFELIX ♦ init dut:ad,usîadiman ♦ ALLOC BUTîAD»USîAD MAN,FN t'FROCA f SOU DUTî AD»USî ADIMAN•LN ♦FROCAT> UN î O r GN > FT îSOU>IRIT X INCLUDE OL *Ж »DL♦ArOFîCATAL ♦ ’ FETCH DUTÎAD,USî&SDîADlMANS,bNîl>UNJ rLNîBIBIMT,FN:CR£AF x: ,& pn: v & UndCSfir JSirartSrVn m^Pa:ai?etrilor> iar vi valorile asociate acestora b roitul cartelelor MOD trebuie marcat printr-o cartelă ENDMOD care nu are parametru , Jn г иГ/^т'°латГт se Prezintă apelarea pentru execuție a proce- durilor CATAL și CATAL JOB B ,AN:ISOO,PN:FELIX XPROC *,DVT:AD,VS:AD MAN,PN:'PROCAT SOU/CATALP • EOJ JOB B ,AN:IS ,PN:FELIX XPROC *,DVT:AD,VS:AD MAN,FN:'PROCAT SOU/CATAL ',MOD • MOD &OPERATIE ;COPY,FLE& MOD &SB:MT MAN& ,& SD:AD MAN& ENDMOD EOJ Se observă faptul că în cazul procedurii CATAL valorile inițiale ale parametrilor formali sînt păstrate pentru execuție în cazul procedurii CATAL se precizează valoarea parametrului OPERAI IE și se modifică valorile parametrilor SB si SD; astfel prin execuția acestei proceduri se realizează copierea fișierului BENEFICIARI de pe volumul aflat pe unitatea AD pe volumul aflat, pe unitatea MT Observație în textul unei proceduri se pot 'include cartele de apelare a altor proceduri Aceste proceduri se numesc proceduri imbricate și pot fi create pe mai multe nivele Realizarea procedurilor imbricate necesită respectarea anumitor reguli: „ z- • • formal este valabilă atîta timp cit procedura m care acesta — definirea unui parametru iormai est x rare , definirea unui parametru in proceauia л» care este definit este in curs de execut prQceduri apelează^» jrocec ui^ Д dacâ un parametru este definit de mai multe ori este luată ’П " b ""eleXite^Srile externe primează celor interne PARTEA ÎNTÎI Cap Noțiuni intr Progra Active II area în limbajul FORTRAN Considerații generale Limbaje de programare Structura programelor FORTRAN Formularul de programare Cap II, Elemente de bază ale limbajului FORTRAN Setul de caractere * Constante * Identificatori și etichete Variabile - - • Liste de variabile Expresii Cap III Instrucțiuni pentru scrierea programelor cu structura liniară Instrucțiuni de declarare Instrucțiunile STOP, PAUSE, CONTINUE Instrucțiuni de atribuire Instrucțiuni de intrare/ieșire standard Cap IV Instrucțiuni pentru scrierea programelor cu structură alternativă Instrucțiuni de tip GO ТО Instrucțiuni de tip IF Simularea structurilor IF-THEN, IF-THEN-ELSE, CASE-OF Cap V Instrucțiuni pentru descrierea structurilor repetitive Simularea structurii repetitive de tip DO-WHILE Simularea structurii repetitive de tip DO-UNTIL Simularea structurii repetitive condiționată intern Descrierea unei structuri repetitive de tip DO-FOR Structuri repetitive de tip DO-FOR incluse Citirea si scrierea tablourilor Cap VI Proceduri Funcții Subprograme Instrucțiunea EXTERNAL Cip VIL Fișiere Utilizarea fișierelor în programele FORTRAN Declararea fișierelor Сар Ѵ П ri^cic pe cartele ККГ CU aCCCS SCCVCn Inventarierea fișierelor : Rezumarea volumelor Cap XXL Generatorul de programe de sortare » Generalități * Ordinele transmise generatorului ♦ Cap XXII Programul de întreținere a fișierelor și volumelor Funcțiile programului Ordinele adresate programului de întreținere Cap XXIII Utilizarea bibliotecilor Generalități Bibliotecarul Cap XXIV Utilizarea procedurilor catalogate Crearea procedurilor catalogate Apelarea procedurilor catalogate Plan editură Nr, Coli de tipar: - pl Bun de tipar: VI, Tiparul executat sub comanda nr ? la Întreprinderea poligrafica Decembrie *, București Republica Socialistă România IU DIVISION PROGRAM-ID PVI ENVIRONMENT DIVISION CONFIGURAT IUN SECTION INPUT-OUTPUT SECTION FILE-CONTROL♦ SELECT MATERIALE ASSIGN ТО SYSIN SELECT RAPORT ASSIGN ТО SYSOUT DATA DIUklSION FILE SECTION COU»MAGAZIE COD -MATERIAL denumire-material V OMITTED PIC X( ) PREȚ RAP R LABEL RECORD ART-E' WORKING-STORAGE SECTION SF Rl PIC VALUE ZERO K F LLER PIC X( ) VALUE FILLER PIC X( ) VALUE F LLER PIC X( ) VALUE FILLER PIC X Л WRIÎE ART-B FROM ART-H INVALID KEY Dt$>PLA\ * ♦ CUI IE ERONATA *** RETURN MANEVRA Ai i ND MOV! ТО Г IE IRE-EXIT» EXIT LINK INII DVTIAD»V IAD MAN AL L OC i'Vl IAD»V JADloAN• i N ’ uLII'TLCA »AM:r ooo CABLU OîtL „ООП CABLU OTEL ISSniubO CABLU SPECIAL MO S CABLU IZOLAT EOF EOJ PROGF ’ МШ V ^